/pET-i 

//// Årgång 2 

lyheterna 

Nr 4 




datatronicab 


PET-BOK 



• Valfri kontoplan 

• Dagboksregistrering med saldoavstämning 

• Huvudbok med transaktions • historik 

• Rapportgenerator för egna rapporter 
med budgetjämförelser 


• Filsystem i FORTH 

• Kostnadsställebokföring på PET 

• COMAL - nytt undervisningsspråk 

• PET på dentallaboratorier 


I 
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Redaktörns funderingar: 

Nu har du fått ett nytt nummer av PET-nyheterna i din 
hand. Hoppas det är Lika intressant och Läsvärt som de 
tidigare. Om du har synpunkter, eLLer viLL göra din 
stämma hörd i kommande nummer, sLå en signaL eLLer skriv 
ett brev. Senast den 1 oktober viLL vi ha ditt bidrag. 

Den här gången inLeder vi PET-nyheterna med ett program, 
eLLer vad vi ska kaLLa det. Knappa in nedanstående rader 
i din PET och se resuLtatet. Du bLir garanterat 
förvånad. 

100 enh=4: rem enhets nummer 4=skrivare, 3=bildskärm 
110 open1,enh 
120 fora=1to36 
130 reada$ 

140 fori = 1tolen(a$) 

150 m = asc(mid$(a$,i,1)):k = m and127 

155 ifk=46thenl=13:gotol80 

160 ifk = 59thenl = 93:goto 180 

170 1=157-k:l=l+m-k:ifk<64thenl=1-64 

180 print^1,ehr$(1);:next 

190 printgl 

200 nexta:end 

210 data"Xo=xovxqjr=yöp=jnp=iborix=itqqäktovö=jto=jxpxjixk=t 
220 data"jdyidjrqöoy1=jrkxg=xii=äkxg=itqq=jrnqqbkökxo=t=yxo=qtqqö 
230 data"ädo=föqynkw=nzu=äöy=unonp=öii=usbqmö=uxoox=öii=nkyoö=xii 
240 data"äkö=toözrnkyxktovjjibqqx/=Xwixk;i=rnp=uno=tu;v=öii=uno 
250 data"vqapi=öii=wk;vö=np=yxi=wöooj=FZ=m;=jibqqxi=nzu=jrtzröyx 
260 data"ybkwak = xii=äkxg = pxy = äxvbköo=np = obkpökx=hmmqd jotovök 
270 data"ubknp/. 

280 data"Jrnqqbkökxo1=gökj = rhojrömxk = t=xovxqjrö=gök=oayinkwitvö1 
290 data"uöyx=öqyktv=jxii=xqqxk=uaki=yxooö=wakrnkiotov/=Uöo=gboyx 
300 data"jtv=itqq=mkbjixo/=Yxoox=vkhääqöyx=nzrj;=agxk 
310 data"wakrnkiotovxo/=Y;=uöo=uakyx=öii=yöpxo=gök=agxk=(-1=öoinv 
320 data"uöo=öii=uno=gök=xo=wknp=rgtooö1=jnp=vbkoö=gtqqx=gxiö=gök 
330 data"Fnny=Zuömxq=5jrnvjrdkröo4=wakrnkiöj =FZ1=q;v/ = Uöo = jrkxg 
340 data"ybkwak=waqsöoyx = hiwakqtvö = äkxg = itqq = yxo = xovxqjrö = yöpxo/. 
350 data"Pto=o;ytvöl. 

360 data"FZ=t=wk;vö=qtvvxk=nprktov=.-=rp=wk;o=yxo=v;ky1=ybk=ot 
370 data"röo = w;=udkö = khp/ = Yxi = bk = äxqbvxi = t =xo=gözrxk = äökkjrnv=nzu 
380 data"u ;qqxj =ammxi=göksx = itjyöv=nzu=wkxyöv/ = Yxiiö = wakxwöqqxk 
390 data"Xk = röojrx = q tix=nqbvqtvi = t = wöqq = ot = mqöoxkök = kxvxqähoyoö 
400 data"nzu=röojrx=yövqtvö=äxjar/=Yxi=rnppxk=ynzr=hiöo=igtgxq 
410 data"öii=vqbysö=Xk=öii=uakö1=öii=p;ovö=pbootjrnk=iövxk=pxy 
420 data"jtv=pöijbzr=nzu=itqqäktovök=uxqö=yövxo=ybk=wak=öii 
430 data"gxkrqtvxo=w;=oshiö=ög=yxo=gözrkö=hijtrixo/. 

440 data"Y;=yxi=rnppxk=p;ovö=äxjarökx=0=jbkjrtqi=hoyxk=jnppökxo=0 
450 data"gtqq=söv=k;yö=xk=öii=towtooö=Xk=ybk=t=j;=vny=ity=jnp 
460 data"pasqtvi/=Hikdppxi=kbzrxk=t=öqqpbouxi=itqq1=wak=yxi=wtooj 
470 data"nprktov=%-=jtiimqöijxk/=Pxo=bgxo=np=Ot=k;rök=gökö=jxoi 
480 data''hix1=röo = 0t = jbrxki = kbroö = pxy = öii=wtooö = o;vno = ji;mqöij/ 
490 data"Rqnzröo=ktovxk=,-=ptohixk=tooöo=FZ=ammoöj /-Söv 
500 data"kxrnppxoyxkök=Xk=öii=v;=yti=m;=itjyövökoö=y;=gt=uök 
510 data"nkvxqözrnpmöosxpöov/=Örhjitrxo=bk=hipbkri1=bgxo=jgövöjix 
520 data"qshy=röo=hmmwöiiöj/. 

530 data"MJ 

540 data"Pto=wkh=nzu=söv=uök=toix=uöwi=itqqwbqqx=öii=v;=yti=yxo 
550 data"jxoöjix=p;oöyxo1=gtqrxi=g;qqöi=njj=jink=jpbkiö/=Gbvxo=bk 
560 data"öqqiwak=q;ov/ 
ready. 
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PROGRAMBYTARNA 


Månadens program, alla kategorier, heter SOLVALLA. 
Som namnet antyder, skall spelarna satsa på hästar. Stta 
hästar deltar i loppet, och de har naturligtvis olika 

odds. Loppet kan man följa på bildskärmen, varefter 

resultatlistan presenteras. En tangenttryckning, och man 
får reda på den ekonomiska ställningen för de olika 
spelarna. Upp till sex spelare kan satsa i ett lopp. 

Naturligtvis kan man då det är färre spelare, låta samma 
spelare satsa på flera hästar. 

Som sagt, BJÖRN HOLMGREN i Järpen har bidragit med 

ett riktigt trevligt spel. Det tackar vi för. 


BLI PROGRAMBYTARE 

För den som är ny i klubben tar vi tillfället i akt 
att presentera reglerna för Programbyt arna: 

Om du har gjort ett program som uppfyller vissa 
kvalitetskrav, får du ur Programbyt arnas Index välja ett 
program som någon annan skickat in. Är det riktigt bra, 
kommer ditt program att upptas i Programbytarnas Index. 

Programmet kan vara lagrat på kassett eller skiva, 
och skall åtföljas av en lapp som talar om: 

Vem du är. 

Var du bor. 

Din telefon (dag och kväll). 

Programmets namn. 

Kort beskrivning av programmet. 

Din PET's typnummer. 

Vilket program du vill byta till dig, samt 
Frimärken för fem kronor för returportot. 


ENKLA REGLER 


1. Du skall vara medlem i PET-klubben. 

2. Programmet skall vara på svenska. 

3. Det skall i programmet ges ordentliga 
instruktioner om vad det hela går ut på och hur man 
skall bete sig. 

4. Det skall vara ett program som inte låter PET 
vara oförskämd eller arrogant. 

5. Du förbinder dig att inte till andra lämna ut de 
program du får genom programbyt arna. 

Givetvis behåller du rätten till att ekonomiskt 
utnyttja ditt program, men genom att du skickar in det 
till Program byt arna , har du medgivit att det får komma 
med i Programbytarnas Index, och att andra därmed har 
rätt att byta till sig ditt program. 





Är ditt program speciellt i något avseende, kan det 
bli upptaget till Månadens Program, med särskilt 
omnämnande och kommentarer i PET-nyheterna . Med detta 
följer, att du får en pärm för flexskivor. 


PROGRAMBYTARNAS INDEX 


Just nu ser Programbyt arnas Index ut så här: 

1 Invaders 

2 Othello 

3 N i m 

4 Biorytm (skrivare behövs) 

5 Tips (skrivare behövs) 

6 Primtal (skrivare behövs) 

7 Riddare 

8 Star-trek 

9 3-d luffarschack 

10 Biljard 

11 Månlandare 

12 Imphex 

13 Robot Nim 

14 Mastermind 

15 Mastermind 2 

16 Don Martin 

17 Yatzy 

18 Blackbox 

21 Bågskytte 

22 Laser 

23 Lotto 2 

24 Kalender 

25 Tripp-Trapp-Trull 

26 Solval la 

Samtliga dessa program kan köras på PET ur 
3000-serien. Dessvärre är det så, att en del av 
programmen har moment som är beroende av ett visst 
operativsystem, och därför inte kan köras på maskiner ur 
8000-serien, till exempel Invaders. 


(skrivare behövs) 


(skrivare behövs) 
(skrivare behövs) 


OTHELLO 

Det här var ju det stora spelet för två år sedan. 
Det blev snabbt populärt bland alla som ville ha 

variation i sina ekvilibristiska övningar med Maste 
Mind. 

Othello spelas av två på ett bräde med 64 rutor. 
Brickorna som skall läggas ut på spelplanen är svarta 

och vita. Den ene spelaren lägger ut brickorna med den 

vita sidan upp och den andre med den svarta sidan. 
Brickorna skall läggas ut så, att man med den nya 

brickan stänger in minst en av motståndarens brickor 
(mellan den nya och en av sina tidigare brickor). På så 
sätt instängda brickor vänds, och byter därmed färg. Den 
vinner, som har flest brickor i egen färg. 








Många har försökt skriva program som låter PET spela 
Othello, och resultaten är minst sagt varierande. Av 
alla varianter, är jag speciellt förtjust i den som 
finns med i Program byt arnas Index. Vissa brister finns 
(som att PET avstår hellre än att göra ett riktigt 
Efter en tid kan man också förutse PET:s 
är ju fallet även med motspelare av kött 


dåligt drag), 
drag, men det 
och blod. 

Så skicka 
Othello. 


in ditt bästa program och ta en match med 


J . Stie rnborg 




SPECIALTECKEN TILL PET-PRINTEE 


PE i -printerns proerammerfoara tecken aer den mycket •soda 
aratiska möd I i -a het er „ Det kan dock v en a a ar sk a. arbetsamt att 
ekriva de ppoaramrader.- vilka aer tecknen. Ett mindre 
arbetsamt alternativ er den b i tooe.de programrutinen. Enl i et 
en vsrnipva i FET-nyheterna ken det vara forstärdiet att byta 
ut looren i rad diöly mot en ennan sekvens.- vi Iken ritar ett 
1 o d r ä.t t s t r e c k i s • j u n d e r o s 1 1 i o n e n t r .Sri v an s t e r k an t e n. 


Programmet startas med instruktionen 
RUN 31000 

En ram ritas dä. i skärmens ovre vänstra, horn. Vandra, omkrina 
med cursorn innantor ramen.- och rita tecknet med h-ialr av 
et J annor. Nar tecknet ar f ardi et sä. a ä. med cursorn till en 
r o s i t i o n n e d an t o r r am e n o c h a e i n s t r u k 1 1 o n e n 
CONT 


Bä. skrivs" p-ä. skarmen en subrutin.- vilken aenererar tecknet. 
3 am t i d i si t s k r i v s ett m o v e x e m r-' 1 ar u t p-- ä. k- r i n t e r n. S r B u n c c 
med tecknet.- sä. skriv ett radnummer p--ä. den aenererad© 
eubrutinen. 


d 



I vissa ta.Il ar tecknet tor stort tor att fä. plats inom ramen 
<som t. ex. he likör tern). Starta dä. p:-r oer-ammet som ovan. Rita. 

I I au r en me d s t ■ j ar' nor. de i ns fr u k t i or"i e p'i 
CONT 

de radnummer ä.t subrutinen, dm tiauren ar bredare an sex 
P--OS i t i oner.- sä. tryck p--ä. RETURN' eri aäna till. Ny subrutin 
aenereras. Fortsatt ti 11 dess hela. tecknets bredd ar klar. 
(Vari© rad a er sex positioners bredd. .•■ dä sedan ned ti 11 den 
nedre fortsa.ttriinassa.tsen som skrivs p--ä. skärmen, dm tecknets 
hoJd er mep“ an ca 1L positionerv mäste det ritas sä. att man 
byaaer p-- ä. det i underkanten i seament om 7 positioner. 
Bariaenom blir fiaurhoJden obearansad» Fä. motsvarande satt 
k an f i a u r e n b y a a as u t o b e a r an s at i s i d 1 e d. 




KEFVBfi Konsu It 
A1 lan Emren 
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1800 REM KEFVDAPROGRAM 818301 
31801 REM SPECIALTECKEN TILL PET-FRINTERN. 

31 ö 18 N=6 ; P0KE53468, 1 £ ■' PR I HT" 3" •' Q=32768 : F U R U fl=Q+6 T U Li+2463T E P 4 8 : P U R E U fl, 1 0 1 ; N E 

31020 PR I NTXHHHHM-: STOP 

31821 REM 

I*i22 REM RAMEN RITAD. VANDRA MED CURSORN INOM RAMEN. RITA TECKNET MED * 


3 i 823 

REM 



31024 

REM G 

ENERERA TECKNETS KOD 

TILL FET-PRINTERN, 

31025 

REM 



31028 

Q$="": 

PRINT" Q*="; 


»38 

FGRQfl= 

0Tu5■uE=b4■UC=8•FuRWl 

=0l U6 : U b=w+0 fl+4 0 # L-! D 

3.040 

IFPEEK 

>•'. Q E —4 2 T H E H 0 U=Q C+U E 


31050 

uE=uEf 

2:NENT:Gt=Q$+CHR$ i QC) 


31851 

REM 



31852 

REM SK 

RIV UT TECKENKODEN. 


31853 

REM 



31860 

PRINT" 

CHRf<";QC; "!I) + "; : NENT 

: PRINTCHR$( 20) j" : RETURN" 

31861 

REM 



31062 

REM PROGRAMRAD SOM GER TEC 

KNET 

31063 

REM 



31864 

REM T 

EST AV TECKENDELEN 


31865 

REM 



31078 

0PEN5, 

4,5: FR I NT #5.. Q* ■ CL OSE 5 


31088 

0PEM4, 

4 ; PR I NT#4 : PR I NT#4, " 

";CHR$C254 >:CL0SE4 

31031 

REM 




SI092 REM FLER TECKENDELAR 

2U80 PR I NT" N="; N+6; " ■■ 0=32768+ "; N;" • G0T031110" 
105 PR I NT" :mm-i=S ■ 0=32768: G0T031118": STOP 
31110 PR I NT "TT1"•' G0T031028 
READV. 


.KSr 
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ETT FILSYSTEM FÖR FORTH 


I fortsättningen kommer det att finnas en avdelning om 
FORTH i varje nummer utav PET-NYHETERNA. Praktiskt 
användbara ord kommer att presenteras, och om det finns 
intresse kan vi diskutera specifika aspekter på FORTH 
och PET-FORTH. Skriv en rad! 

I detta nummer tänkte jag presentera ett enkelt system 
för filhantering i FORTH. Det är mycket kompakt, men 
ändå mycket kraftfullt. Med nedanstående ord kan du 
definiera filer, poster, och fält inom posterna. Varje 
fält inom posten kan sedan refereras med nummer - en 
sorts relativa filer alltså. PET-FORTH håller dessutom 
de mest använda delarna av filen i minnet, så att 
antalet verkliga di sk läsni nga r minimeras. Det sparar tid 
och diskettens livslängd ökar väsentligt. 

Till skillnad från relativa filer, behövs ingen sökning 
genom en nyckelfil utföras; den sökta postens eller 
fältets position på disken räknas fram genom 
moduloaritmetik, vilket sker mycket snabbt. Nedan ser du 
ett exempel på hur man med dessa ord definierar en enkel 
fil för personuppgifter: 

1900 FILE PERSONFIL 

RECORD 20 BYTES EFTERNAMN 15 BYTES FÖRNAMN 
12 BYTES TELEFONNR DVALUE MEDLEMSNR 
VALUE AKOD VALUE BKO D VALUE CKOD 

END-RECORD 

Låt oss se lite närmare på vad som definieras och hur 
det görs. På den första raden finns frasen 
1900 FILE PERSONFIL . Detta talar om för FORTH att en 
fil kallad PERSONFIL skall skapas, och att den skall 
börja i block 1900. Filen kommer att fortsätta i 
stigande block (1900, 1901, 1902, etc) så man måste vara 
säker på att plats finns ovanför. 

Därefter följer ordet RECORD . Det anger att 
definitionen av de ingående posternas fältuppbyggnad 
följer. Denna definition fortsätter ända fram till ordet 
END-RECORD . Man kan ha flera samtidiga 
po st det i ni t i o ner för samma fil; mer om detta senare. 














Mellan RECORD och END-RECORD definieras sedan de 
olika fälten. Vi ser först frasen 20 BYTES EFTERNAMN , 
vilket helt enkelt definierar ett 20 bytes långt fält 
kallat EFTERNAMN . På motsvarande sätt definieras fält 
för förnamn och telefonnummer. Textfält definieras 
alltid med ordet BYTES . 

Vi ser också frasen DVALUE MEDLEMSNR , vilken 
definierar ett fält kallat MEDLEMSNR , vilket är avsett 
att rymma ett dubbeIpreci sionstal (Double VALUE), vom 
tar 4 bytes i anspråk. 

Tre enke Ipreci sionsfäIt ( AKOD , BKOD , CKOD ) 
definieras också; de tar vardera upp 2 bytes i posten. 

Tillsammans ger detta en post om 20+15+12+4+2+2+2 = 57 
bytes. Posterna får inte vara större än 256 bytes, 
vilket är storleken på ett diskblock. Filorden packar så 
många poster som får rum i ett block; i detta fall fyra 
stycken, med 28 bytes spill i varje block. Om 
postlängden är 1, 2, 4, 8, 16, 32, 64, 128, eller 256 
bytes uppstår inget spill; vi kan alltså öka på något 
fält i den ovanstående postdefi ni t ionen, utan att filen 
tar större plats. 

Låt oss nu tala lite om hur man använder sådana här 
filer. När man vill börja använda filen, behöver man 
inte öppna den. Det räcker med att skriva 

PERSONFIL 

för att tala om för FORTH att vi vill använda den. Om vi 
har flera filer (man kan ha hur många som helst aktiva 
samtidigt!) måste vi skriva det önskade filnamnet innan 
vi hämtar data ur filen i fråga. Filerna behöver heller 
inte stängas. Programmet behöver bara utföra ett FLUSH 
innan det avslutas eller innan en skiva byts. 

Hur kommer man nu åt data i filerna för läsning, 
uppdatering, och skrivning? Det är mycket enkelt, och 
skiljer sig faktiskt inte från FORTHs normala hantering 
av variabler och fält. För att få adressen till det 
2097:e telefonnumret på stacken för bearbetning, utför 
man bara följande fras: 

2097 TELEFONNR 

Enklare kan det ju knappast bli, inte sant? Följande 
lilla programavsnitt skriver ut de tretusen första 
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efternamnen och förnamnen: 


3000 0 DO I EFTERNAMN 20 TYPE I FÖRNAMN 15 TYPE CR LOOP 

På motsvarande sätt skriver denna fras ut den 1000:e 
CKOD -en: 


1000 C KO D ? 

Antag att vi har ett fält som heter BELOPP i någon 
fil, till exempel för löner. Vi kan summera alla 
BELOPP och skriva ut summan med följande ord: 

ANTAL.POSTER 3 0 DO I BELOPP 3 SUMMA +! LOOP 
." Summan är " SUMMA ? 

För att sätta den trehundraförst a AKOD :en till -500 
används följande fras: 

-500 301 AKOD ! UPDATE 

UPDATE behövs för att tala om att innehållet i det 
senast refererade blocket är ändrat, och alltså måste 
återskrivas till disk när dess buffer behövs för andra 
data. Mer om UPDATE står att läsa i 
PET-FORTH-manualen. 

Antag att vi har två filer, kallade ARTIKLAR repektive 
LAGERPL . Vi vill kopiera över ett numeriskt fält i 
ARTIKLAR kallat NUMMER till ett fält i LAGERPL som 
heter NUMERO . Antal poster finns i variabeln ANTAL : 

ANTAL 3 0 DO 

ARTIKLAR I NUMMER 3 

LAGERPL I NUMERO ! UPDATE LOOP 

Här måste vi ge filnamnet före varje referens till ett 
fält, därför att vi arbetar med två filer samtidigt. 


4 * - 

# 
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0 

1 

2 

3 

4 

5 

6 

7 

8 

9 

1 0 

11 

12 

13 

14 

15 


Nå, nu väntar den 
fiL det i ni t ionsord 
på en enda skärm! 


ivrige Läsaren säkert på hur dessa 
själva definieras. HåLL i er - de ryms 
Här är de: 


# i u 

( FILSYSTEM 
0 VARIABLE RECLEN 


PB-810513 ) 


0 VARIABLE BL K# 


FILE <BUIL D S 


HERE 0 C, 


( FILDEFINITIONSORD *) 


DO ES> DUP 2+ 03 RECLEN ! 3 BLK# ! ; 


RECORD 

0 

! C S P ; 

( INLEDER POSTDEFINITIONEN 

*) 

FILLER 

+ 

r 

( UTFYLLNAD INOM POSTEN 

*) 

BYTES 

( RESERVERAR PLATS INOM POSTEN 
<BUILDS OVER C, + D0ES> C3 >R B/BUF RECLEN a / 
/MOD BLK# + BLOCK SWAP RECLEN 3 * + R> + ; 

*) 

V AL UE 

2 

BYTES ; 

( RESERVERAR 16-BIT AR ST AL 

*) 

DVALUE 

4 

BYTES ; 

( RESERVERAR 3 2-BIT AR ST AL 

*) 

END-RECORD 

?CSP SWAP C! ; 

( AVSLUTAR POSTDEFINITIONEN 

*) 


Det enda nya ordet här är FILLER . Det används då man 
har flera olika definitioner av posterna, t.ex: 

750 FILE INFIL 

RECORD 10 BYTES F AKTUR AN R 6 BYTES KUNDNR END-RECORD 
RECORD DVALUE UPPG1 DVALUE UPPG2 DVALUE UPPG3 

4 FILLER END-RECORD 

RECORD 5 BYTES ARTNR VAL UE ANT DVALUE PRIS 

3 FILLER END-RECORD 

Här kan vi alltså betrakta en post som uppbyggd av 
antingen: 

1) Fakturanummer plus kundnummer 

2) Tre dubbeIpreci sionstal 

3) Artikelnummer, antal, och totalpris 

FILLER används här för att göra po stdef ini t i o nerna exakt 
lika långa. Detta är nödvändigt för att filsystemet 
skall räkna rätt när ett visst fält skall hittas. 


-*-*-*- 


I nästa nummer skall jag visa hur man kan göra för att 
anropa vissa ord på interrupt, det vill säga helt 
automatiskt 60 gånger i sekunden. På detta sätt kan man 
bland annat köra två program samtidigt! I det därpå 
följande numret kommer en artikel om automatiska 
overlayer - hur man gör program som är 1 million bytes 
stora! 


Pet er Bengtson 
Datatronic AB 
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PET NU ÄVEN PÅ DENTALLAbORATORIER! 


Sedan december 1980 har TEDENT - ett specialsystem för dental- 
laboratorier - varit i drift på fyra laboratorier i Malmöregi¬ 
onen. Systemet, som arbetar med PET 8000, är utvecklat av 
Mikon Data i Malmö, som har lång erfarenhet och gedigna kun¬ 
skaper om dentalbranschen. 



r n första demonstration av systemet för PET-återförsäljarna # 

gjordes i samband med Datakraft i Malmö i våras. Presentatio¬ 
nen ägde rum hos den lokala PET-återförsäljaren, Lindahl & 

Rothoff AB, och ett dussintal återförsäljare runtom i landet 
har sedan dess satt sig in i systemet. 


Den första installationen gjordes på Bellevue Dentallaborato- 
rium i Malmö. Nedanstående artikel är författad av Tommy Fred¬ 
riksson och Stig Stjernström, som gemensamt äger laboratoriet 
och har drivit det sedan starten för tio år sedan. Laboratoriet 
sysselsätter f n elva tekniker. 


it 


ATT INVESTERA I DATOR... 

... kan ha sina sidor när man är okunnig om branschen. Det är ^ 

lätt att lockas av skickliga försäljares löften om "världens 
bästa system". Inte förrän det är för sent upptäcker man, att 
det man fått långtifrån liknar det man tänkte sig. Och då är 
det så dags... 

Papper, papper, papper! 

Kvällsarbete, förstörda helger, otrivsel både på arbetsplats 
och i hemmet. Vi höll på att kvävas av pappersarbetet. Men i 
dag har vi - äntligen! - fått ordning och arbetsro på labora¬ 
toriet. Pappersarbetet är ett minne blott. Fakturering, kund- 
reskontra, påminnelsebrev, statistik - allt sköts via datorn. 

Snabbt och smidigt. 
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Må q o t måste göras 

Redan för några år sedan insåg vi att något måste göras för 
att minska administrationen. Vi hade fler beställningar än vi 
hann med, men eftersom svängningarna i branschen är stora ville 
vi ogärna utöka personalen. Varje tidsbesparande åtgärd skulle 
däremot ge oss möjlighet att med bibehållen personalstyrka 
öka laboratoriets produktivitet. Med detta som utgångspunkt 
undersökte vi möjligheten att investera i en dator som medar¬ 
betare . 



Datadjunqeln 

Vi tog kontakt med olika dataföretag och framförde våra önske¬ 
mål. Alla var mycket villiga att hjälpa oss och försäljare från 
de olika företagen avlöste varandra i snabb följd. 

Det tog oss inte lång tid att inse, att datamarknaden är som 
en okänd djungel, där vi som oerfarna beställare lätt kan gå 
vilse. 

De flesta föll emellertid bort på grund av ett för oss orimligt 

högt pris. Kostnader på upp emot ett par hundra tusen kronor 
kan få vem som helst att hoppa av i blotta förskräckelsen! 


”Det perfekta systemet” 

Till slut fann vi en leverantör, som påstod sig kunna lösa 
våra problem till ett rimligt pris. Systemutvecklingen skulle 
inte vara något problem. Man hade redan färdiga standardsystem 
och det var ”bara” att anpassa något av dem till våra önske¬ 
mål. Han lovade oss ”det perfekta systemet”. Vi skrev på ett 
köpeavtal. 


IM är systemet väl installerats visade det sig emellertid vara 
både tungarbetat och tidsödande. Statistikuppgifterna var 
ytterst knapphändiga och tog dessutom så lång tid att samman¬ 
ställa, att de oftast var för gamla för att kunna användas. 


Vi var en dyrköpt erfarenhet rikare men de administrativa 
problemen kvarstod fortfarande i stort sett olösta. 
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Ett färdigt mikrodatorsystem 


Så kom vi på v/åren 1980 i kontakt med ett dataföretag, som 
just höll på att avsluta utvecklingen av ett specialsystem för 
dental laboratori er. \I i fick möjlighet att lämna synpunkter på 
systemet men ville i övrigt inte binda oss för någonting förrän 
det var färdigt. Vi var inte beredda att upprepa vårt misstag 
att "köpa grisen i säcken". 

Tidigt på hösten var systemet färdigt. Efter en förhandsvisning 
inför styrelsen i Dentallaboratoriernas Riksförbunds södra 
krets inbjöds företaget, Mikon Data i Malmö, att demonstrera 
systemet på vårt höstmöte. 

Det är ingen överdrift att säga, att samtliga närvarande 
laboratorieägare var mycket imponerade av systemets prestanda. 
Efter ett omfattande utvecklingsarbete har man lyckats åstad¬ 
komma ett system, som på ett enkelt och överskådligt sätt hanterar 
de tidsödande rutiner vi så väl behöver hjälp med på våra 
laboratorier. 


TEDEMT 

Systemet heter TEDEMT (TEkniker DEMTalis) och är "skräddarsytt" 
för dentallaboratorier. Allt är logiskt och klart uppbyggt. Man 
har tagit fram ett speciellt arbetskort/fakturaunderlag, från 
vilket kortfattade uppgifter via tangentbordet föres över till 
datorn. På bildskärmen ser vi hela fakturan i klarskrift och 
det är enkelt att göra ändringar. Alla fakturor finns efter 
utskrift bevarade i maskinen för eventuell korrigering. Då kal¬ 
lar vi bara upp fakturan på skärmen igen, ändrar den felaktiga 
uppgiften och låter datorn skriva ut en ny faktura. Vår stati¬ 
stik korrigeras samtidigt automatiskt. 

Statistiken är den del av administrationen som tidigare alltid 
fått komma på undantag. Den har varit så tidskrävande att vi 
endast hunnit med de uppgifter vi varit absolut tvungna att ta 
fram. Med TEDEMT kan vi när som helst med lätthet få fram alla 
uppgifter vi behöver. 














Statistiken har gett oss helt nya möjligheter att påverka och 
planera vår ekonomi. Vi har en perfekt överblick över inarbetade 
arvoden (såväl totalt som för varje avdelning och tekniker), 
utestående fordringar, materialförbrukning, kundstatistik m.m. 
För att inte tala om påminnelsebrev, som tidigare tagit så lång 
tid att ta fram att vi nästan aldrig gjorde det. Nu får vi dem 
utskrivna medan vi går och dricker en kopp kaffe. De har tagits 
väl emot av våra kunder och betalningen för våra arbeten har 
börjat flyta in snabbare. Räntevinsterna blir i längden betydan¬ 
de. Med de tids- och räntevinster vi gör med TEDENT är det 
ingen överdrift att påstå att den betalar sig själv. 


I dag skulle vi inte klara oss utan TEDENT, som gör allt det 
tråkiga, tidsödande och besvärliga pappersarbetet åt oss! 


Tommy Fredriksson, Stig Stjernström 




0MyÄND_P0LSK_N9JATI0N 

Som en del av Datatronics brillanta och fameusa 
PET-UND-serie presenteras här PET-UND 3.05. Programmet 
kan enkelt knappas in på en godtycklig PET, och kräver 
väldigt väldigt lite plats. Skriv RUN med en elegant 
handrörelse, och din dator reciterar en känd svensk visa 
i polsk version: 

10G0SUB1OOrGOSUBl10:G0SUB130:G0SUB140:END 

100F0RI=1T03:PRINT:PRINT"Yamo ";:G0SUB150:NEXT:G0SUB120:RETURN 
110F0RI = 1T03:PRINT :PRINT"Yawizca ";:G0SUBl50:NEXT:GOSUBl20:RETURN 
115PRINT"Påe Zcoczera Phram":RE TURN 
1l6PRINT”lewa :RETURN 

120PRINT"Utyh :G0SUB160:PRINT"De'or":RE TURN 

130F0RI=1T03:PRINT:PRINT"0när Ona";:GOSUBl16:NEXT:GOSUBl20:RETURN 
140F0RI = 1T03:PRINT :PRINT"Yadåzca Oczszuta ";:NEXT:G0SUB115:RETURN 
150PRINT"Ho";:G0SUB116:RETURN 
160PRINT"Hunra RETURN 
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Optisk läsare till PET 

Anders Borgström deltog i utställningen Unga forskare i 
Stockholm med en egenhändigt konstruerad optisk läsare 
för PET 3000. 

Utstä 11 ningsjuryn uppmärksammade Anders arbete som ett 
av de mest intressanta på utställningen. Som pris och 
erkänsla för sina insatser har han belönats med en resa 
till ett holländskt forskningscentum. 

Hela historien har sin tilldragelse i att Anders satt 
vid en skrivmaskin och skulle göra en skri v mask insbild 
av Snobben. Arbetet var mycket arbetsammare än han hade 
räknat med. Funderingarna började löpa i banor som om 
det inte skulle vara möjligt att lagra och föra över 
bilder med data istället. 

Med hjälp av en av PET-anläggningarna på gymnasiet i 
Hudiksvall började experimenten. 

Han började med en plotter som fick en Läsare monterad. 
Läsaren läser av en bild som placeras i plottern med ett 
par kvadratmillimeter i taget. Via en hemmagjord 
omvandlare blir det elektricitet av bilden. Bilden dyker 
upp på PETs dataskärm och kan även lagras i minnet. 

Datorn kan också räkna ut ytan av olika geometriska 
former. 

Läsaren består av en fototransistor som ser en area av 
2.0 kvadratmillimeter. Arean belyses med infrarött ljus 
och det reflekterande ljuset mäts av fototransistorn. 

Spänningen över transistorn matas in till en 
A/D-omvand l a re som översätter den analoga signalen från 
läsenheten till en digital signal som datorn använder i 
behand Lingen. 

Den mekaniska konstruktionen av läsenheten är relativt 
enkel. Den består av en platta av veroboard där dioden 
och fototransistorn sitter monterade. Läsenheten 
förflyttas över bilden med hjälp av en plotter i A 
4-format. Läsenheten har monterats i hållaren för pennan 
och kan röras i alla riktningar över hela plotterbordet 
i steg på 0.1 mm. Styrningen av plottern sker 
programmässigt av datorn. Bilden läses i steg om 1 mm i 
vardera riktningen, totalt 165 punkter per rad och 
sammanlagt 200 rader. 





Läsningen av en punkt görs som följer, datorn skickar ut 
en order till A/D-omvandlaren att överföra spänningen 
som ligger över fototransistorn till en digital signal. 
När A/D-omvandlaren är färdig ger den en signal tillbaka 
till datorn att ta emot värdet som A/D-omvandla ren 
ställt ut. Därefter ger datorn order till plottern att 
flytta läsenheten 10 steg, dvs 1 mm, till nästa punkt 
som ska läsas. Det värde mellan 0 = "vitt" och 255 = 
"svart" som datorn nu fått in, räknas om till ett tal 
mellan 0 och 3 som sedan lagras på flexskiva. För att få 
in mer data på varje skiva lagras tre värden i samma 
byte varvid utrymmet minskas ner till en tredjedel av 
vad det skulle blivit om varje värde lagrades för sig. 
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KOSTNADSSTÄLLEN i petbok 


I dag används PETBOK i ca. 1000 företag i Sverige. 
Succesiva förbättringar har gjorts och nu gäller version 
6 på PETBOK 3000 och version 3 skall just skickas ut för 
8000 serien. Systemavdelningen på DATATRONIC har fått 
många förfrågningar och tips angående 
kostnaasstä11 en/projekt-redovisning i PETBOK, varför en 
sådan har arbetats fram . Tanken med 
kost nausstä11e-redovisning i PETBOK är att man redan vid 
konteringen för kostnaden på den avdelning eller projekt 
dit den hör. Man har sedan möjlighet att lista 
transantioner spec ifiserade på sitt kostnadsställe. 
ÖnsK t mål om automatkonteringar har också t i11godose11s. 
Till ett visst konto kan man knyta en eller flera 
automatiska transaktioner. Dessa två utökningar av 
PETBOK beskrivs mera ingående i följande text. 


Man kan koplettera med kostnadsställe och 
aut omatkonter ing om man redan kör PETBOK till en kostnad 
av 1200 kr. Köper man PETKOST från början kostar denna 
3600 kr. PETKOST beräknas finnas hos återförsäljarna i 
slutet av september. 


Vi tänker oss en kontoplan ( se bilaga 1) där nagra av 
våra vanliga konton finns med. Företaget i exemplet har 
två fastigheter och dessa utgör kostnadsställe 001 och 
002, Bergsgatan 1 respektive Villagatan 5. De kostnader 
som bokförs på dessa fastigheter läggs på följande 
konton : 


4010 

4020 

4050 

4070 

4080 

4090 


Intäkten 


lönekostnad fastighetsskötare 

RSV-kostnader fastighetsskötare 

sophämtning 

el/vatten/avlopp 

underhåll 

räntor/amortering 

d.v.s hyrorna bokförs på konto 3050. 


Ett bokföringsunderlag som visar olika rörelser på 
fastigeterna skulle kunna se ut som följer: 


Verifikation nr 1 lön till fastighetsskötare. 


1020 

4010001 

2200 

4020001 

2300 


-3000.00 lön efter skatt från bank 
4000.00 utbetald lön k-ställe 001 
-1000.00 prelskatt 
1600.00 RSV kostnadsställe 001 
-1600.00 skuld RSV 


Verifikation nr 2 kostnader f 
el/vatten/avlopp: 

1020 -1500.00 

från bank 

4050001 1000.00 

4070001 500.00 


ör sophämtning, 

betalt sophämtning och el 

kostnad sopor k-ställe 001 
kostnad el k—ställe 001 




Verifikation nr 3 kostnader för underhåll 


1020 

4080001 


-1800.00 uttag bank för underhåll 
1800.00 underhåll på fastighet 001 


Verifikation nr 4 intäkt hyror 


1020 

3050001 


10000.00 insatt hyror på bank 
-10000.00 hyresintäkt k-ställe 001 


Verifikationerna 5, 6, 7 visar motsvarande rörelser för 
fastigheten Villagatan 5 d.v.s kostnadsställe 2. 


Vi har nu sett att vi kan tillföra varje kontonummer en 
treställig kod som uttrycker kostnadsställe. Således kan 
vi hantera upp till 999 olika kostnadsställen. Antalet 
kostnadsslag begränsas av 500 konton i kontoplanen. 

Vi lägger helt enkelt till tre siffror till kontonumret 
då vi registrerar och för på så sätt in kostnaden på 
sitt kostnadsställe. 

Som vi ser på bilaga 2 dagbokslista får vi dagboken 
listad exakt som i PETBOK. 

Vi får dessutom en möjlighet att lista bokningarna till 
kostnadsställe vilket framgår av bilaga 3. Där ser vi 
bokningarna i verifikationsnummerordning och på vilket 
kostnadsställe bokningen skett. Nu kan vi sortera dels 
den normala dagboken till huvudbok men vi kan även 
sortera kostnadsstä11ebokningarna till en särskild 
kostnadsställe-skiva. Huvudboks 1istan ser ut precis som 
förut (se bilaga 4). Bilaga 5 visar per kostnadsställe 
och i tidsföljd de transaktioner som skett på respektive 
kostnadsställe och i tidsföljd. 

Nu kan vi på samma sätt som i PETBOK skapa olika 
rapporter från kostnadsställe. Vi kan helt enkelt 
sammanföra olika kostnadsslag på samma kostnadsställe 
eller mellan olika kostnadsställen och får på så sätt 
alla möjligheter att ta fram upplysningar om våra 
kostnadsställen. Bilaga 6 visar reslutatet från var 
fastighet på Bergsgatan 1. 


AUTOMATKONTERING 


I den utökade PETBOKEN kommer även automatkontering att 





finnas med. Denna möjliggör att man kan faställa samband 
mellan olika konton i kontoplanen. Man talar om för 
maskinen vilket samband som gäller för en bokning på ett 
konto till ett eller flera andra konton. Det går till så 
att man gör ett antal fördelningar bestående av max 10 
kontonummer och en procentsats eller ett fast belopp 
till varje konto. Sedan kan man för varje konto i 
kontoplanen tala om vilken fördelning som ska användas. 
Vid dagboksreg istrer ingen kommer PET när ett konto som 
är kopplat till en automatfördelning att automatisk 
fördela beloppet på de önskade kontona med den valda 
procentsatsen eller med ett eventuellt fast belopp. Man 
ha en procentsats mellan -1000% och 1000%. 
Procentsatserna är inte beroende av de övriga kontona 
som beloppet ska fördelas på, de behöver med andra ord 
inte vara 100% tillsammans. 


K O NTOPLRH FÖRETAG : DATRTRGHIC AB DATUM s SI 0520 


KONTONR 

KONTONAMN 

1010 

KASSA 

1 020 

BANK 

1030 

POSTGIRO 

1100 

KUNDFORDRINGAR 

1400 

INGÅENDE MOMS 

2100 

LEVERANTÖRSSKULDER 

2200 

PREL SKATT LÖNER 

2300 

SKULD RSV 

240© 

UTGÅENDE MOMS 

2800 

AKTIEKAPITAL 

30 1 0 

INTAKTER FÖRSALJN 

3020 

ÖVRIGA INTAKTER 

3050 

INTAKT HVROR 

4010 

LÖNER 

4020 

RSV-KOSTNADER 

4050 

SOPKOSTNADER 

4070 

ELKOSTNADER 

4080 

UNDERHALL FASTIGH. 

4090 

RANTA/AMORTERING 

5010 

VARUINKÖP 

6010 

ADMINISTRATIVA KOST 



AMTAL KONTON s 21 


20 










DRGEOK FÖRETAG : DATATRONIC AB DATUM : 81852© SID 1 


VERNR. 

RAD. 

..KONTO. 

..DATUM. 

KONTONAMN. 

........... DEBET. 

.KREDIT 

1 

81 

1828 

818528 

BANK 

8.88 

-3088.00 

1 

82 

4818 

318528 

LÖNER 

4088.80 

8.80 

1 

83 

2288 

818528 

PREL SKATT LÖNER 

0.88 

-1000.00 

1 

84 

4828 

818528 

RSV-KOSTNADER 

1688.00 

0.00 

1 

85 

2388 

818528 

SKULD RSV 

8.88 

-1600.00 


VERIFIKATIONSTOTAL 5688.88 -5688.©8 



2 

01 

1 020 

810520 

BANK 


cL 

82 

4050 

810520 

SOPKOSTNADER 


'cL 

03 

4870 

810528 

ELKOSTNADER 



VERIFIKATIONSTOTAL 




01 

1020 

310520 

BANK 



02 

4080 

310520 

UNDERHALL FA 


VERIFIKATIONSTOTAL 


0. 

, 00 

-1500. 

00 

1000. 

, 00 

0. 

00 

500. 

, 00 

0. 

00 

1500. 

, 00 

-1500. 

00 

0. 

, 00 

-1800. 

00 

1800. 

, 80 

0 . 

00 

1800. 

, 00 

-1800. 

00 




4 81 1828 818528 BANK 

4 82 3858 818528 INTAKT HVROR 

VERIFIKATIONSTOTAL 


18888 - 88 
8.88 
18888.88 


8.88 

- 18888.88 
- 18888.88 







5 

01 

1 020 

818520 

BANK 

0.00 

—3500.00 

5 

02 

4010 

318520 

LÖNER 

4800.00 

0.00 

5 

03 

2208 

81052© 

PREL SKATT LÖNER 

0.00 

-1300.00 

5 

04 

4820 

818520 

RSV-KOSTNADER 

1700.00 

0.08 

5 

05 

2388 

810528 

SKULD RSV 

0. 00 

-1700.00 


VERIFIKATIONSTOTAL 


6508.00 

-6500.88 

s 

01 

1 020 

818520 

BANK 

0.00 

-1800.00 

G 

02 

4850 

310528 

SOPKOSTNADER 

1200.00 

0.00 

G 

83 

4078 

310520 

ELKOSTNADER 

600.00 

0.00 


VERIFIKATION 

ISTOTAL 


1808.00 

-1800.00 

r* 

01 

1020 

810528 

BANK 

13000.00 

0.00 

7 

02 

3050 

810520 

INTAKT HVROR 

0 . 00 

-13000.00 


VERIFIKATION 

ISTOTAL 


13000.00 

-13000.O0 


DAGBOK 

IS—OMSLUTNING 


40200.00 

-40200.80 
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O K n I M O — K S 

FÖRET AU 

: DATATRONIC AB 


VERNR. 

RAD...DATUM.. 

.KONTO.. 

.KS-NR.NAMN. 


1 

02 810520 

4010 

0i0il BERGSGATAN 

1 

1 

04 810520 

4020 

00il BERGSGATAN 

1 


SUMMA 





02 810520 

4050 

@01 BERGSGATAN 

1 


03 810520 

4070 

001 BERGSGATAN 

1 


SUMMA 





02 810520 

401801 

001 BERGSGATAN 

1 


SUMMA 




4 

02 810520 

3050 

00U BERGSGATAN 

1 


SUMMA 




5 

02 810520 

4010 

002 VILLAGATAN 

5 

5 

04 81052£i 

4020 

002 VILLAGATAN 

5 


SUMMA 





02 8105201 

401501 

002 VILLAGATAN 

5 

G 

013 810i520i 

4070 

01012 VILL AGi AT AN 

5 


SUMMA 




"7 

i 

02 810520 

30501 

002 VILLAGATAN 

5 


SUMMA 


DATUM: 810520 SIDI 

.BELOPP. 

4000.00 
1600.00 
5600.00 

1000.00 
500.00 
1500.00 

1800.00 
1800.00 

- 10000.00 
- 10000.00 


4800.00 
1700.00 
6500. Cft* 


1200.00 
600.00 
1800.00 


-13000. 0-- 
—13000.00 











Ml. 

JVUDBOK FÖRETAG s 

DATATRONIC AB 


DATUM : 81052 

0 SID : 1 

PERIOD : 31©520 - 81052© 

KONTONR : 1000 

- 9999 



- . . 

KONTO.KONTONAMN. 

.DATUM.. 

.VERNR.RAD. 

..DEBET. . . 



1010 KASSA 






KONTOOMSLUTNING : 



0.00 

0.00 


1020 BANK 

810520 

1 01 

0.00 

-3000.00 


1020 

810520 

2 01 

0.00 

-1500.00 


1020 

810520 

3 01 

0.00 

- 1 800 . £10 


1 020 

810520 

4 01 

10008.00 

0.00 


1020 

810520 

5 01 

0.00 

-3500.00 


1 020 

810520 

6 01 

0 . 00 

-1800.00 


1 020 

810520 

7 01 

13000.00 

0. 00 


KONTOOMSLUTNING : 



23000.00 

-1 1600.00 

* 

1030 POSTGIRO 






KONTOOMSLUTNIHG : 



0.00 

0 . £10 


1100 KUNDFORDRINGAR 






KONTOOMSLUTNING : 



0.00 

0.00 


1400 INGÅENDE MOMS 






KONTOOMSLUTNING : 



0.00 

0.00 


2180 LEVERANTÖRSSKULDER 






KONTOOMSLUTNING : 



0. 00 

0.00 


2200 PREL SKATT LÖNER 

810520 

1 03 

0.00 

-1000.00 


2200 

810520 

5 03 

0. 00 

-1300.08 


KONTOOMSLUTNING : 



El. 00 

-2300.00 


2300 SKULD RSV 

810520 

1 05 

0 . 00 

-1600.00 


2300 

810520 

5 05 

0 . 00 

-1700.00 


KONTOOMSLUTNING : 



0.00 

-3300.00 


2400 UTGÅENDE MOMS 






KONTOOMSLUTNING s 



0.00 

0.00 


2800 AKTIEKAPITAL 






KONTOOMSLUTNING : 



0.00 

0.00 


3010 INTAKTER FÖRSALJN 






KONTOOMSLUTNING s 



0 . £10 

0.00 


3020 ÖVRIGA INTAKTER 






KONTOOMSLUTNING : 



0.00 

0 . 00 


3050 INTAKT HVROR 

810520 

4 02 

0. 00 

-10000.00 


3050 

810520 

7 02 

0. 00 

-13000.00 


KONTOOMSLUTNING : 



0 . 00 

-23000.00 
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HUVUDBOK FÖRETAG : DRTRTRONIC AB DATUM : 316520 SID : 2 

PERIOD : 810526 - 816526 KOHTOHR : 1666 - 9999 

. . . KONTO. KONTONAMN.DATUM. . . VERNR. RAD.DEBET.KREDIT 


4010 

LÖNER 

810520 

1 

62 


4000.00 

0. 00 

4010 


816520 

5 

02 


4800.00 

0 . 00 


KONTOOMSLUTNING : 





8800.00 

0.00 

4626 

R8V-K0STNADER 

810526 

1 

04 


1600.00 

0.00 

4026 


810526 

5 

04 


1700.00 

0.00 


KONT OOMSLUTNING : 





3300.00 

0. 00 

4050 

SOPKOSTNADER 

810520 

Cl 

62 


1000.00 

0. 00 

4050 


816520 

6 

02 


1200.00 

0.00 


KONTOOMSLUTNING : 





2200.00 


4070 

ELKOSTNADER 

810526 

2 

03 


500.00 

0.00 

4070 


810526 

6 

03 


600.00 

0.00 


KONTOOMSLUTNING ; 





1100.00 

- Jf 
0. 0 

4080 

UNDERHALL FASTIGH. 

816520 

3 

62 


1800.00 

0 . 00 


KONTOOMSLUTNING : 





1800.00 

0.00 

5010 

VARUINKÖP 








KONTOOMSLUTNING : 





0. 00 

0.00 

6010 

ADMINISTRATIVA KOST. 








KONTOOMSLUTNING s 





0.00 

0 . 00 


HUVUDBGKSOMSLUTNING 

■ 

• 




40200.00 

-40200.00 

:S-LISTA FÖRETAG : DATATRONIC AB 



DATUM : 8105 

26 SID : 1 

ERIOD : 

810520 - 810520 

KS-NR : 1 - 999 





.BELOFjP 

. . KS--NR. 

KS-NAMN. 

.KONTGNR... 

VERNR.RAD. 

...DATUM.. 

00 1 

BERGSGATAN 1 

40 1 0 


1 

02 

810520 

4000.00 

001 


4020 


1 

04 

810526 

1600.00 

001 


405© 


cl 

02 

y i 

1000.00 

001 


4076 


cl 

03 

810526 

500.00 

00 1 


4080 


J 

02 

816520 

1880.00 

00 1 


3650 


4 

62 

810520 

-10000.00 


SUMMA: 






-1100.00 

002 

VILLAGATAN 5 

4016 


5 

02 

816520 

4800.00 

002 


4026 


5 

04 

810520 

1700.00 

002 


4656 


6 

02 

810520 

1200.00 

002 


4070 



03 

816520 

600.00 

002 


3650 


“7 

l 

02 

810526 

-13000.60 


SUMMA : “4700.60 
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RRPFORT FÖRETOG 

BERGSöflTRN 1 

RJBRIK... 


DflTRTRONIC 


HB 


SflLDO 


FR.0.M 


DATUM : 810528 SID 1 
810528 T.O.M : 810520 


KOSTNADER 


LöN BERGMAN 
SOPHÄMTNING 
EL/VATTEN/AVLOPP 
UNDERHALL 
RÄNTOR/AMORTERING 


—5600.00 
- 1000.00 
-500.80 
-1800.80 


SUMMA KOSTNADER 


-8900.00 


INTÄKTER 

HVROR 

(JJSULTAT 


10000.00 


\ 

1100 . 00 


* 




V I S I B L M U S I C M 0 H I T 0 R 

VET DU ATT DU KflN FA MN PET/CBM ATT LATA SOM EN HEL ORKESTER? 
JA HET LATER FANTASTISKT,MEN HET ÄR FULLT MÖJLIGT MEH VISIELE 
MUSIC MONITOR.KOMPONERA BIN EGEN MUSIK,HU HAR NOTERNA HlREKT 
PA SKÄRMEN OCH HU SPARAR HET ENKELT FÖR FRAMTIHA BEHOV. BEMO 
BANBET SOM MEBFöLJER VISAR LITE AV MÖJLIGHETERNA,BU HAR BARA 
ANSLUTA EN HÖGTALARE.... 395 = - 


V I G I L 

VIBEO INTERACTIVE GAME INTERPRETIVE LANGUAGE.VAB ÄR NU BETTA 
JO BET ÄR ETT NVTT PROGRAM SPRAK FÖR SPEL OCH GRAFIK PA F'ET 
HÖGRE UPPLÖSNING PA SKÄRMEN 88 X 50 POSITIONER.LEVERERAS MEB 
KASETTE MEB 9 SPEL OCH VARJE SPEL LITAT MANUAL.30O-- 


TINV PASCAL MEB BEMO PROGRAM OCH MANUAL. 

PAPER MATE ETT ORBBEHANBLIGS PROGRAM MIN 16K. 


325 ■ 
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VI HOPPAS KUNNA PRESENTER VTTERLIGARE TILLBEHÖR TILL PET/CBM 
LÄNGRE FRAM I HÖST.RING ELLER SKRIV FÖR INFORMATION. 


BATA PRINT 
BOX 9019 
TEL. 044-229282 


291 09 KRISTIANSTAB 
044-229484 
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STRÄNGHANTERING I BASIC 


De flesta människor är medvetna om datorers 
beräkningsmöjli gheter. Likväl finns det en annan 
sida av programmeringen som inte är så känd för den 
genomsnittlige programmeraren. Vi har alla blivit 
utsatta för databehandlade listor såsom kredit¬ 
information, f l ygbi l jettsreserva t ioner eller andra 
exempel på hur datorer kan behandla data. Syftet 
med med denna artikel är att relatera till till hur 
några av dessa delar kan bli förverkligade med en 
Commodore PET. 

De flesta mikrodatorer idag har BASIC som 
huvudspråk. BASIC var utformat för att vara ett 
väldigt enkelt språk, lätt att Lära och med målet 
att kunna hantera de flesta operationer som kan 
utföras på större datorer. En av de nackdelar som 
kan hänföras till BASIC är den ganska långa 
exek veringst i den, men den har ofta inte en 
avgörande betydelse. Vi kommer nu att förklara 
varje del för sig och åskådliggöra dem med exempel. 

Innan vi börjar med diskussionen av de kommandon 
som finns till BASIC för detta ändamål, är det 
nödvändigt att definiera några termer. Vi måste 
förstå hur datorn lagrar data som kodade tal. En 
mikrodator är faktiskt endast kapabel att lagra tal 
inom området 0 till 255 . Som ett resultat av detta 
har några standard koder blivit framtagna. 
Kodningsreglerna som används av mikrodatorer kallas 
ASCII (American Standard for Computer Interchange 
of Information). Bokstaven "A" har till exempel 
kodnumret 65 i ASCII, "B" har 66 , och så vidare. 
Datorn innehåller en avkodningsrut in som 
automatiskt avkodar 65 och skriver ut ett "A". Tal 
kan representeras på tre olika sätt inuti datorn. 
Den första är en teckensträng som använder 
AS C11-representat ion i varje tal. Beräkning kan 
inte göras på tal som representeras på detta sätt. 
Den mest vanliga representationen för 
beräkningsändamå l kallas "flyttal". Datorn 
tilldelar ett antal teckenpositioner i minnet för 
att representera ett tal och på detta sätt görs all 
beräkning möjlig. Den sista representationen kallas 
"Integer" där antalet tal är begränsat till +/- 
32767 som avrundade heltal. Det viktiga är 
egentligen att komma ihåg att de flesta 
mikrodatorer hanterar data, varken det är numeriskt 


t 



<|T 
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eller alfabetiskt, genom det först förklarade 
lagr i ngssä 11 et, alltså strängar av AS CI I-tec k en. Då 
olika beräkningsprocesser vanligen används, finns 
det möjligheter att omvandla mellan olika 
datarepresentationer. 


BASIC OCH STRÄNGHANTERING 


En "sträng" representeras i BASIC av en "$" som 
läggs till direkt efter vari a be l namnet. Till 
exempel A$, IN$ eller X1$. En sträng är en serie av 
ASCII-tecken lagrade tillsammans i en sekvens i 
minnet ("A$=ABCDE"). Om vi tittar där datorn lagrar 
A$, kommer vi att finna 65, 66, 67, 68, 69 i 
intilligande minnesposi t ioner. Notera att i 
exemplet ovan talar citationstecknen om för datorn 
att den skall lagra AS ClI-värdena för bokstäverna 
som finns mellan citationstecknen, vilka därför är 
obligatoriska. 

Strängar av ASCII-tecken kan bli manipulerade genom 
att använda en serie av kommandon. De första är 
LEFT$, RIGHTS och MIDS. Dessa kommandon tillåter 
oss att plocka fram delar av strängar och används 
till att återfinna och bearbeta data som har blivit 
lagrat i datorns minne. 

LEFT$ 

Allmän form A$=LEFT$("ABCDE,2") 

PRINT A ger resultatet AB 

Strängen som skall manipuleras matas in som en 
literal (som ovan inom citationstecken) eller som 
en variabel (X$) åtföljt av ett komma och ett tal. 
Talet utvisar hur många tecken som skall separeras 
ut från vänster i den ursprungliga strängen. LEFTS 
kan inte ändra och inte heller förändras till att 
kunna utföra något annat än att separera ut data ur 
den ursprungliga strängen. 

RIG H T $ 

Allmän form A$=RIGHT$("ABCDE",2) 

PRINT A$ ger resultatet DE 

Som synes utnyttjar RIGHTS samma funktion som LEFTS 
med det undantaget att operationen utförs från 
höger sida. 




MID $ 

A L L män form A$=MID$("ABCDE,2,2) 

PRINT A$ ger resultatet DE 

I det här fallet är första talet, som följer direkt 
efter sträng värdet, en pekare till det första 
tecknet som skall separeras ut, med det första 
tecknet från vänster som utgångsreferens (A är det 
första, B det andra osv). Nästkommande tal 
bestämmer antalet tecken som skall separeras ut. 
Lägg märke till att inte heller MID$ kan användas 
för att modifiera den ursprungliga strängen. 

A$=MID$("ABCDE",2) denna form av MID $-kommandot 
tillåter användaren att ta bort till vänster 
stående tecken. I detta fallet blir resultatet 
A$="C D E" 

Som tillägg till de ovanstående kommandona för 
stränghantering finns det ytterligare tre 
instruktioner som tillåter manipulering och studium 
av strängar. 

LEN 

Allmän form A=LEN("ABCDE") 

PRINT A ger 5 

LEN ger längden av en sträng och används till att 
organisera upp data i register. 

VAL 

Allmän form A=VAL(124.35) 

PRINT A resuterar i 124.35 

VAL används för att omvandla literaltal (som 
AS C11-strängar) till dess "f lytta Isform" för att 
beräkningar skall kunna utföras. Det används i 
många fall för att göra beräkningar på information 
lagrade i dataregister. 

STR $ 

Allmän form A$=STR$(A): Där A=124.35 
PRINT LEN(A$) kommer att resultera i 7 

STR$ är den exakta motsatsen till VAL. Den används 
till att omvandla beräknade värden till ASCII- 
strängform för att lagra i dataregister. Det är 
väldigt viktigt att komma ihåg att STR$ alltid 
lämnar en blank i början för plus- eller 



minus-tecken vid sträng-representation av tal. Om 
talet är positivt inleds det med en blank och om 
det är negativt med ett minustecken. 

De två sista kommandona för stränghantering används 
normalt inom avancerad programering för att 
reducera minnesutrymmet till ett absulut minimum. 

AS C(A$) 

Allmän form A=ASC("A") 

PRINT A kommer att resultera i 65 

Detta kommando omvandlar ett tecken till dess 
ASCII-kod och tillåter det till att användas i 
beräkningar. 

* 

C HR $(A) 

Allmän form A$=CHR$(65) 

PRINT A$ kommer att resultera i A 

Ä Detta är motsatsen till ASC och använder sig utav 

datorns kodnings l ogi c för att generera det riktiga 
tecknet till ett givet kodnummer. 


9 

Har Du en PET-2001? 


! 

• 

Len finns och den fungerar 
på samma sätt som monitorn 
till 3000 -och 8000-serien! 


9 

• 

Då kanske Du har önskat Dig 
en kraftfullare MONITOR? 

• 

• 

Beställ en kassett av 
JAN EÉN PROGRAMKONSULT! 






VILL DU HA KÄLLKODERNA TILL 

EXTRAMON (3000- och 8000 -serien), 

LOADER (8000-serien), HI-LOADER (8000-serien)? 

Beställ av JAN EÉN PROGRAMKONSULT! 


BEHÖVER DU SPECIALUTVECKLADE SYSTEM ELLER ENSTAKA 
PROGRAM FÖR SPECIELLA ÄNDAMÅL - VÄND DIG TILL 


JAN EÉN PROGRAMKONSULT 

Trädgårdsvägen 8A tel 031/981867 
445 OO Surte 
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MÖBLER FÖR MIKRODATORER FR8N EXPORTSTABEN AB 


PET-systemet växer och Exportstaben utvidgar 
möbeLprogram me t i höst. 



Nya bordstyper är S-typ, för de användare som vill ha en 
flyttbar dator, P-typ som passar tillsammans med bäde 
S-typ och E-typ. P-typ passar större skrivare och 
skön skrivare. 



Ljudhuvar för PET-printern 

Ljud är skönt om det inte stör. Exportstabens ljudhuv 
reducerar PET-printerns ljud 14 dBA vilket gör att 
telefonsamtal etc kan föras i trots att utskrift pägår i 
samma rum. 


Exportrtobcn AR 


Box 183 • 372 01 Ronneby • 0457-103 50 • Postgiro 75 67 81-1 • Bankgiro 533-5963 























PET och CP/M 


fl 





t 


CP/M är ett operativsystem som bygger på 
mikroprocessorerna Z80-8080. Till CP/M-datorer 
tillverkas standardiserad programvara, där dock 
b ilds kärms-l ayouter etc. måste struktureras om för varje 
nytt datormärke som programmet skall användas på. 

CP/M kan sägas vara konserverande på 
opera t i v syst emsutve c k l ingen och utnyttjar inte i 
tillräcklig grad den nya teknologin som växt fram på 
sistone. Låsning vid en viss standard i en så pass ny 
teknologi som ändå mikrodatorer är kommer i sin 
förlängning att vara till skada för användaren. 

PET och CP/M har tidigare varit två helt oförenliga 
begrepp, men en engelsk firma har gjort en "låda" som 
gör det möjligt att använda CP/M-program i en PET-dator. 
Uppkopplingen görs genom att koppla CP/M-"lådan" till 
Pets IEEE utgång och ladda f l exsk i veenheten . Genom 
användandet av CP/M kommer Pet att fungera med olika 
programmeringsspråk. 

Uppkopplingen kräver inga ombyggnader och Pet fungerar 
som normalt tills en CP/M diskett laddas in. 

CP/M-"lådan" innehåller en Z80 mikroprocessor som 
tillsammans med Pets 6502 gör att program utföres till 
4Mh z. 

När ett standardpaket för olika maskiner utvecklas, 
måste alltid hänsyn tas till den sämsta av alla faktorer 
i hårdvaran. Finesserna på en dator kan i stor 
utsträckning inte utnyttjas om ett så generellt 
operativsystem som CP/M används. 

Många försök har gjorts att standardisera kompilatorer, 
språk, operativsystem etc. Historiskt sätt har det dock 
visat sig att de flesta av dessa blivit överkörda av 
utvecklingen. Detta är nog en ganska trolig prognos på 
CP/M. Tendenserna bekräftas om man tar en titt på vad 
som rör sig i Japan. Hårdvaruproducenter som använde och 
använder Intel-familjen började med CP/M men tenderar 
idag att söka sig andra vägar, dels för att optimera sin 
egen produkt, dels för att bli unika. 
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Chiffer och 


i)§!Dil9å_SB£i!< 



Något säger mig, att man med hjälp av en dator kan 
konstruera de mest vidunderliga chiffer. En ytterst 
komplicerad algoritm eller formel som förändras vartefter man 
skriver in sitt meddelande. Blir till ett sammelsurium av 
tecken, passerar mottagarens dator och meddelandet 
presenteras omedelbart i sin ursprungliga form på 
bi Idskärmen. 

Inga kodböcker eller mekaniska de chiffreringsmask i ner . 
Och öve rföringshas t i gheter som skulle få 40-talets agenter 
att blekna. 

Vet någon av läsarna mer om ämnet? L i 11era turt i p s, 
urklipp och insändare emottages med tacksamhet. 

Det är knappast troligt att någon som läser det här 
aldrig har hållit på med chiffer. Åtminstone på nivån 
"hemliga språk för tolvåringar". Vem minns inte Rövarspråket 
i Mästerdetektiven Blomqvist. Alla ungar som till 
föräldrarnas bestörtning gick omkring och talade i tungor. 
Lät som en blandning mellan popcorn och överka l ixmå l. 


GÅ I BARNDOM 

En mig närstående dam har uppnått en ålder som man 

fortfarande får nämna. Denna tolvåring är alltså inne i 

bo ksluka rå l dern, och har därför med naturbunden nödvändighet 
börjat inventera mina kunskaper om chiffer och hemliga språk. 
När det gällde Fikonspråket och Allspråket bussade jag henne 
på farfar, eftersom de språken mest hör till hans 
åldersklass. Själv kunde jag bistå med Rövarspråket. 

Eftersom jag är obotligt bekväm av mig, började jag 
skriva på ett program för PET. Ett program som låter mig 
skriva in texten som vanligt och presenterar den på 

bildskärmen. Jag skall kunna ta bort en rad som syns i 

bildskärmen eller radera tecken med början från sista tecknet 
på sista raden. Den "översatta" texten skall sedan skrivas ut 
på skrivare. 


L0LÄT0TT0T 

För den som till äventyrs inte har reglena för språket i 
huvudet: 

Konsonanterna dubbleras. Mellan de dubbla konsonanterna 
placeras ett '0'. Vokalerna förändras inte. Det är allt. 

Alfabetet börjar aliså 'A BOB COC DOD E FOF ...' Jag 
hoppas det är klart som korvspad, som han Blomqvist själv 
plägade säga. 

Vid det här laget i mina funderingar stod det i 
sommarvärmen helt klart, att det fanns ett enklare sätt att 
få till programmet. En tävling. 

Problemet med Kejsarens dilemma (PET-Nyheterna nr 2 åg 
2, sid 10) visade att läsarna gillade att knäcka problem. 






DET HÄR TÄVLAR VI OM 


Skriv ett program där inskriven text visas i bildskälmen 
och där den i viss utsträckning kan redigeras. Godkänd text 
skrivs översatt till rövarspråket ut på skrivare. 

Senast den 10 Oktober vill vi ha ditt program. Adressen 

ä r: 


PET-klubben 
Rövarkulan 
Box 52 

131 40 Nacka 

Ett pris har vi: ett valfritt PET-UND program till den 
som skriver det elegantaste programmet med snyggast 
presentation på bildskärmen. 


J. St ie rnborg 


Läst sen sist 


I USA räknar man med att ett väpnat rån i genomsnitt ger 
10 000 dollar och några års fängelse. Motsvarande belopp för 
ett databrott är 1 000 000 dollar och några veckor i 
fängelse. Det har jag lärt mig efter att ha läst DATABROTT av 
Thomas Whiteside. Carl Magnell har översatt och kompletterat 
med ett avsnitt om databrott i Sverige. Boken är utgiven av 
Hamrelius & Stenvall i Malmö. 

Att databrott förekommer vet man, men problemet är att 
avslöja brottet. Och när det är avslöjat, måste det bevisas. 
Och hur bevisar man att någon till exempel varit inne och 
nollställt ett register för debitering av datortid? Den här 
boken visar på ett föredömligt sätt hur sårbara datasystem 
är, helt öppna för den som vill utnyttja datorn för brottslig 
ve rksamhet. 


INGEN G8R SÄKER 

Boken ger också en uppsjö av exempel på hur man tagit 
sig in i program och operativsystem där man inte har att 
göra. Såväl företags- som försv arshemli gheter är på det 
sättet lika öppna som om de varit tryckta på löpsedlar. 

Mot bakgrund av detta, är det näst intill oförklarligt 
att Kommunförbundet i ett cirkulär nr 81.34 rekommenderar 
kommunerna att skaffa stora system. Till dessa system är det 
tänkt att man skall koppla terminaler för undervisning. Redan 
innan boken DATABROTT var jag mycket tveksam, och nu är jag 
en svuren motståndare. Hur kan man komma på den barocka ide'n 
att via terminaler ge eleverna tillgång till ett system där 
alla skoladmini strati va data finns lagrade? 

Läs den här boken, och dra lärdom av den. 






DATA-DECKARE 


INTRUDER av Louis Charbonneau finns i svensk 
översättning nu, och hetet då INKRÄKTAREN. Det är Det Bästa's 
Bokval som givit ut den i volym 110. 

Det här är en helt skönlitterär bok, men skriven av en 
författare som uppenbarligen vet vad han talar om. 

I en amerikansk stad har man en enda stor dator som styr 
många funktioner i samhället. Såväl styrning av trafikljus 
och utsändning av elräkningar som lagring av sjukjournaler 
sker med hjälp av samma dator. Inkräktaren lyckas ta sig in i 
detta system, och kan därför styra och ställa som han/hon 
vill med alla stadens angelägenheter och funktioner. Typiskt 
nog är det med hjälp av andra datorer man kommer inkräktaren 
på spåren. 

Många har ont av Det Bästa's ned ko r t ni nga r, men jag 
måste säga att jag inte märkte något av det. Visserligen hade 
boken gärna kunnat vara längre, men det beror på att den var 
så förtvivlat bra. 

För oss som både gillar spänning och datorer, är den 
boken ett fynd. 

STILFULLT 

Vad gäller ren facklitteratur, har jag under sommaren 
återigen läst BASIC WITH STYLE av Paul Nagin och Henry F. 
Ledgard (Hayden). Min upplaga är sedan 1979, men enligt 
ut g i vningsp l anen borde det finnas nyare utgåvor. 

Att döma av många program är den här boken okänd för de 
flesta. Finns det något värre än spaghettiprogram; där man 
börjar dra i vad som verkar vara en lovande lös tamp. Och så 
följer hela programmet med i en enda kall, klibbig klump. 

BASIC WITH STYLE är inte en bok enbart för dem som vill 
programmera klädda i smoking. Tvärtom betonar den 
'programmeringen som en mental process*. Programmeringen som 
en del av problemlösningen och tvärtom. 

Boken är uppbyggd kring 19 grundregler, som börjar med 
"Don 1 t panic" och slutar med "Don't be afraid to start over". 
Varje regel kompletteras med checklistor och andra tips. 

En nyttig bok, som kanske är väl mastig att läsa rakt 
igenom på en gång. 

RÄDDARE I NÖDEN 

THE BASIC HANDBOOK av David A. Lien (Compusoft 
Publishing) är också guld värd. BASIC är ju inget enhetligt 
språk, utan finns i en uppsjö dialekter. 

Du har i en utrikisk tidning fått tag på ett program som 
verkar användbart. Du börjar knappa in det, bara för att 
mötas av ett MAT REA eller 6T, för att inte tala om STUFF. 
Förtänksam som du är, har du THE BASIC HANDBOOK på lut. I den 
läser du om kommandot och får ett testprogram för att utröna 
hur PET reagerar. Variationer kommenteras, och du får tips om 
hur du kan göra om kommandot inte fungerar. 

Att du också kan använda boken för att slå upp ett 
kommando du inte är riktigt säker på, gör ju inte saken 
sämre. 

Nej, den boken är ett måste för alla som inte enbart kör 
färdiga prog ram . 
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S U P E RC H I P-ROM 


PLUGG IN ROM FÖR PET 

- Automatisk repeat på alla tangenter 

- Variabel cursor (markör) blink 

- Scroll (rulla) skärmen upp eller ned 

- Scroll del av skärmen 

- Sudda skärmen upp till cursorns position 

- Sudda rad eller del av rad 

~ Sätta in rader i text eller program 

- Singel kev basic, enkelt inslag av 26 av 
de längsta basic-kommandona 

- Retrace visar de 10 senast utförda 
Drogramraderna 

- Shrink tar bort alla mellanslag och REM 
satser ur ett program 

- Reverse video (omvänd) i valfri del 
av skärmen 

- Med flera funktioner 


CBM DATOR 



pris 635*“ 

SUFERCHIP monteras enkelt 
i ledig ROM sockel UD3, 
kan användas tillsammans 
med TOOLKIT och PICCHIP. 




• * * * PIC -CHIP**** 

PIC-CHIP ger dej 40 nya BASIC kommando för grafisk presentation, inget 
FEEK eller POKE utan enkla kommando. 


EXEMPEL 


10 POR X=0 TO 39:Y=Xt1.5 
:IWPsNEXT 

20 YO=25:F0R X-0 TO 79 STEP 3 
:Y=SIN(X/12)#24:!WY:NEXT 

RTJN 


10 POR X=0 TO 39:Y=Xt1.5:I 
WP:NEXT 

20 POR X=0 TO 79sY=SIN(X/l2) 
#24:iWX:NEXT 

30 POR K= 0 TO 79:Y=SIN(X/12) 
*X/2: IWY iNEXT 


55D«- 

- PIC-CHIP monteras i 
ROM sockel UD4. 




- Word Processor.295 :- 

- Mailing List....295 :- 

- Katalog register.295 :- 

- MM. 


Ring eller skriv för information. 

OflTfl 


- MACROTRONICS fjärrskrifts inter¬ 
face med programvara. 


PRIMT 


Box 9019 291 09 Kristianstad Tel 044-229282, 229484 
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ETT KOSTNADSFRITT DATABASSYSTEM FÖR ALLA 


Nu finns det ett offentligt databassystem som är öppet 
för alla som har tillgång till en 300-baud-termi nal. 
Databasen heter TRÄDET och finns på 08/19 05 22. Det är 
öppet dygnet runt, är kostnadsfritt, självinstruerande, 
och det behövs inga loginkoder - vem som helst kan med 
andra ord använda det. Man kan sätta eko, små/stora 
bokstäver, line feed, allt efter vad terminalen kräver. 

Trädet är ett nytt revolutionerande sätt att utbyta 
information över dator - en elektronisk anslagstavla, en 
väggtidning, en konferenslok al, eller ett klotterplank. 
För första gången finns det nu ett offentligt, 
kraftfullt organiserat medium för utbyte av ideer, 
tankar, och förslag. 

TRÄDET är som namnet anger organiserat i trädform. 
Meddelanden växer ut från varandra som grenar i ett 
träd. Detta är ett mycket kraftfullt sätt att ordna en 
databas på, eftersom det på detta sätt blir 
självorganiserande. 

När man har ringt upp Trädet börjar man lämpligen med 
att skriva Läs_Konferenser. Då visas det grundläggande 
meddelandet, från vilket Trädet förgrenar sig. Detta 
har en mängd undermeddelanden C H i ä j. g, Programmering, 
E£Zitorget, Pascal, Politik, Restauranter, 

flilDÉI/' E!lä!22/' m * m .) vilka man kan läsa genom att 
skriva Läs följt av namnet på det meddelande man önskar 
läsa. 

Dessa undermeddelanden förgrenar sig sedan ytterligare; 
B§stauranter är t.ex. underindelat i franskt, kinesiskt, 
japanskt, och italienskt kök, medan Pascal har 
underkategorier som heter För/emot och Rutiner. Man kan 
läsa dessa meddelanden och på detta sätt fortsätta allt 
längre in i trädet. 

Man kan också läsa hela delträd, söka efter text, eller 
skriva ut allt inom ett visst träd som är tillagt efter 
ett viss datum. 

En viktig möjlighet är att kunna lägga till egna 
meddelanden till Trädet. Man kan utöka databasen var som 
helst, genom att helt enkelt skriva Utöka_nnnn där nnnn 


I* 
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står för namnet på det meddelande man vill kommentera. 
Man hamnar då i en editor, som först frågar vilket namn 
man vill ge det nya meddelandet, och därefter låter dig 
mata in ditt meddelande. 

På detta sätt kan användare kommentera varandras ideer 
och åsikter, uppslag kan publiceras, och 
program meringsrut i ner kan lämnas. Man kan diskutera 
olika persondatorsystem och mjukvaror; CP/M:s vara eller 
inte vara; sor teringsrut i ner kan jämföras; restauranter 
och viner kan recenseras; man kan skriva en bok 
tillsammans (den kan dela sig och få två olika slut). 

Vi hoppas att trädet får så stor spridning som möjligt - 
ju fler som använder det, desto användbarare blir det. 
Det är avsett att fungera som en gemensam resurs, öppen 
för alla. Trädet har kapacitet att bli något mycket 
användbart. Vi har redan ett stort antal ringande, men 
fler är alltid välkomna. 

Trädet skrevs av Datatronic AB. Själva programmet är 
skrivet i PET-FORTH, vilket gör programmet mycket 
kompakt och snabbt. På grund av FORTHis arbets- 
uppsnabbande karaktär tog hela projektet endast fyra 
dagar att programmera - en förvånande kort tid för ett 
så kraftfullt program. Datatronic avser även att sälja 
programmet till privatpersoner och institutioner; det 
kan nämligen användas som en lokal databas när det inte 
är uppkopplat för kommunikation, exempelvis för 
släktforskning eller för remissvar, notiser, kom-i-håg, 
m. m. 


Om du önskar använda din PET som en terminal, kan din 
återförsäljare ge dig all nödvändig information om hur 
detta går till. 


Pet er Bengtson 
Datatronic AB 
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Stort internationellt behov 


Att utlandet har ett mycket starkt marknadsbehov av v å r a 
svenska PET-produ k ter bevisade verkligen PET-SHOW. Man 
kan delvis se denna PET-mässa som en produkttest. Man 
visar sina senaste PET-lösningar. Man jämför med de 
andre hur långt fram resten av världen kommit i framsteg 
och utveckling av mikrodatorn PET. Ett test av det här 
slaget är en förutsättning innan rnan vägar investera i 
en kostsamt ex por11ansering. Därför har vi inte väntat 
pä bättre tider utan tog sats ordentligt när vi såg att 
de svenska PET-produkter na slog väl ut på PET-SHOW. 

Därför satsar Datatronic nu som första mikrodatorföretag 
i Sverige på en väntande exportmarknad 

Vi matchar införsäljningen med annonskampanjer som ^ 

rullar i pressarna i amerikanska-, engelska-, och tyska 
datatidningar. De utländska facktidningarna har direkt 
frågat mer om själva produkterna vi säljer. De vill 
skriva mer om våra mjuk- och hårdvaror. Därför har vi 

kompletterat annonserna med pressreleaser för i första ^ 

hand de europeiska- och amerikanska marknaderna. 

Vi har nu etablerade kontakter med flera utländska 
distributörer världen över. De fungerar som vår 
distributionskanal för vårt svenska mjuk- och 
hårdvarusortiment till PET på exportmarknaderna. 

Glädjande nog vi har ju redan märkt att våra produkter 
säljer. Störst efterfrågan på mjuk- och hårdvaror kommer 
från den europeiska marknaden. Men i orderingången märks 
även behov från Hong-Kong, Sydamerika och även 
Syd-Af rika. 


4 * 
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PEJ — SMOW_ — _värj.dens_största_datamässa 
för bara en dataleverantör 


PET är nu levererad i mer än en kvarts milj. exemplar i 
över 100 länder jorden runt. Av alla 

mikrodatortillverkare är Commodore-PET som bekant ensam 
om att äga sin forskning, utveckling, tillverkning och 
försäljning. Genom dotterföretaget HOS Technology ligger 
vi i den absoluta frontlinjen i forskning, utveckling 
och produktion av mikroprocessorer. Commodore-PET är den 
enda vertikalt integrerade koncern som finns inom 
mikrodatorvärlden idag. Titta bara på PET's ovanligt 
välutvecklade mjuk- och hårdvaruprogram. 

Dundersuccej_ 

Internationella PET-SHOW hölls i §r på West Centre Hotel 
i London och pågick i fyra intensiva dagar i juni. 
PET-SHOW som är öppen för allmänheten, arrangerades nu 
för andra året i rad och blev en riktig dundersuccé. 
Antalet mässbesökare fördubblades jämfört med förra 
året. över 12.000 besökare i år jämfört med ca: 6.000 
förra å ret. 

Usiä_yärJ.den 

PET-SHOW är verkligen en datamässa av "world-wide" mått. 
över 100 Commodore-PET utställare från hela världen 
visade mer än 600 mjuk- och hårdvaror. Innovationer 
presenterades inom olika appli k a t ionsområden typ 
business, medicin, ingenjörskonst, utbildning, vetenskap 
och för hemmabruk. 

Svenska_generalagenten_Datatronic 

y^9år_§åisa_gå_exgort. 

Det svenska PET gänget ställde i är ut på PET-SHOW för 
första gången. Målsättningen med produktutvecklingen är 
att i stort tillfredsställa de internationella 
marknadernas behov. Det gjorde svenska PET med unika 
lösningar för både mjuk- och hårdvaror. 

Bl.a. visade vi det nya programspråket PET-F0RTH och den 
nya PET-TERM. Av hårdvaror visade vi våra egna 
utvecklade PET-Switch, Scip, PET-Com, PET-IEEE samt en 
teckengenerator. 










PET SOM PROCESSDATOR 


Vi har nyligen startat en firma för att börja 
använda PET i processtyrning. 

Just nu arbetar vi med ett sådant projekt i 
LeKsand. Det handlar om att styra en OCR-läsare och 
en tryckpress/plockmask in. 

Vi kommer alltså att åta oss arbeten över heta 
landet . 

PET är en mycket intressant maskin för just 
styrning i och med att den har: 

G PIB 

Standard buss enligt IEEE och IEC för 
parallell överföring till instrument,, skrivare 
och annan periferi utrustning. 

V24 / RS232 / Current-loop 

är den vanligaste seriella bussen för 
anslutning av skrivare, modem och annan 
periferi utrustning. 

Datauoard 

är mer eller mindre industristandard i 
Skandinavien. Den har ett 70-tal industriella 
Europakort för bla processövervakning, 
-styrning och larmsystem. 


Forth 

som har omnämnts en hel del i tidigare nummer 
och i vårt tycke gör att PET hamnar i en klass 
för sig som bla processdator. 

Det finns även annan intressant utrustning till 
PET, men ovan nämnda gör att man enkelt kan ansluta 
den till det mesta. 

Vi kommer att ta till vara möjligheterna och se 
till att PETen får ytterligare några 
användningsområden. 

Som firma är vi ganska nybildade men vi har lång 
erfarenhet av PET. Vi arbetar med: 

Processövervakning 

Processtyrning 

Hårdvaru-utveckling 

Programvaru-utveckling inom alla områden 
Programkonsuut verksamhet 

Om ni vill veta mer eller är intresserad av ett 
samarbete ring 08-760 81 91 och tala med Björn 
Svensson, eller skriv till: 

HB MICkO-COM UBV 
Bj örn Svensson 
östergokssvängen 21 
1 63 54 SP8NGA 







tl^_y§rslon_av__P_E_T 


LÖN 


En ny version av vårt löneprogram kommer snart till dess 
använda re. 

Väsentliga ändringar i PET-LÖN version 2 är följande: 


1 . 



Ändring i S A F-st a t i st i ken . 

Löneprogram me t klarar numera av åtskilligt fler 
förbund förutom Verkstadsföreningen. Programmet är 
mycket mer flexibelt och kan utökas lätt för flera 
statistiklistor. 

För att SAF-listorna skall bli korrekta, måste 
liggande A4-papper användas. 

Statistik-koderna för SAF-statistik har ändrats, 
dessa måste alltså omregi streras i personregister. 
Förutom en ny lista för Verkstadsföreningen finns nu 
listor som klarar: 


- GRAFISKA FÖRBUNDET 


- LISTA BL92 (kolumn b till 16) som omfattar: 

ALLMÄNNA GRUPPEN, BUTELJGLAS BRUKSFÖRBUNDET, 
BYGGNADSÄMNES FÖRBUNDET, GLAS INDUSTRINS 

ARB.GIV.FÖRBUND, HANDELNS ARBETSGIVAREORGANISATION, 
LIVSMEDELSBRANSCHENS ARB.GIV.FÖRBUND, 
LÄDERINDUSTRINS ARB.GIV.FÖRBUND, 

PETROLEUMBRANSCHENS ARB.G IV.FÖRBUND, 
RÖRLEDNINGSFIRMORNAS AR B . G IV. FÖ RBU ND', SKOGS- OCH 
LANTARB.GIV.FÖRBUNDET, STOPPMÖBELINDUSTRINS 
ARB.GIV. FÖRBUND, SVETS MEKANISKA AR B.G IV.FÖRBUND, 
TEATRARNAS RIKSFÖRBUND OCH TRÄINDUSTRI FÖRBUNDET. 

- LISTA BL94, dvs ALLMÄNNA GRUPPEN och ALLMÄNNA 
FABRIKSAVTALET. 

- LISTA BL96 (kolumn b till 18) för: BAGERI- OCH 
KOM DI TORIARB.GIV.FÖRBUNDET, BILTRAFIKENS 

ARB.GIV.FÖRBUND, ELEKTRISKA ARB.GIV.FÖRBUNDET, 
GLASMÄSTERI FÖRBUNDET, GRUVORNAS ARB.GIV. FÖRBUND, 
HANDELN AR B.G IV.0RGAN ISA TION, KV ARNYRKESFÖRBUNDET, 
RÖRLEDNINGSFIRMORNAS AR B . G IV . F Ö RB U N D , SKOGS- OCH 
LANTARB.GIV.FÖRBUNDET, SVERIGES TEXTIL- OCH 
KONFEKTIONS INDUSTRI FÖRBUND. 

För dem som tillhör ett annat förbund, kan vi 
undersöka om dessa går att anpassa till PET-LÖN. 


2. Fa ckfören ingsli st an skrivs nu ut i 
personnummerordning. 


3. Löne- och avdragsarter har utökats, kan väljas mellan 
01 och 60. Dessutom kan man själv bestämma hur många 
til lägg/avdragsarter man ska ha. 




É# PET BLANKETTER 


Samarbetet mellan MOORE PARAGON, Datatronic och Prodab har resul¬ 
terat I en rad speciellt framtagna blanketter som passar Ditt 
PET-system. 

Dessa blanketter finns för omedelbar leverans från vårt lager till 
följande PET-system och program: 

PET 3000 PET-FAKT 

Neutrala PET-fakturor 

Neutrala PET-betalningspåminnelser 

PET 8000 PET-ENT 

Neutrala PET-ordererkännanden 

Neutrala PET-fakturor 

Neutrala PET-betalningspåminnelser 

Om Du önskar Din egen logotype och firmanamn samt adressuppgifter på 
Din faktura och ordererkännande trycker vi också det. Leveranstid 
för tilltryck är 4-6 veckor. Dessutom står vi till förfogande då 
det gäller andra blanketter eller blankettsystem. 

PET-fakturan och PET-ordererkännandet produceras i vår egen unika 
blankettkonstruktion "SPEEDIFORM", en överlägsen konstruktion för 
såväl driftsäkerhet som för manuell efterbehandling. 

Förutom dessa PET-blanketter finns också för omgående leverans 
datalistor, etiketter och efterbehandlingsmaski ner. 

PET-blanketterna beställer Du enklast direkt från närmaste 
PET återförsäljare. Du kan också kontakta Gurlie Mild på vårt 
kundservicekontor i Västervik, tel 0490-167 20, eller närmaste 
försäljningskontor. 

MOORE PARAGON Svenska AB 


Försäljningskontor: 

Stockholm Göteborg Malmö Jönköping Eskilstuna Sundsval1 

08-7530315 031-427085 040-290520 036-188300 016-118565 060-31360 






SLumgtaL 


PET har en inbyggd stumptalsgenerator som kan användas i 
många sammanhang, mest vid olika typer av spel och dobbel. 
Den här s l umptalsgeneratorn har en del egenheter, och det är 
vad detta kommer att handla om. 

PET släpper ifrån sig ett sluptal genom satsen RND(O), 
det står i alla böcker. Nollan inom parentes måste finnas där 
på samma sätt som i FRE(O), som tvingar PET att göra en 
garbage collect och inventera ledigt m i nnes utrymme (se 
PET-Nyheterna nr 2 åg 2, sid 32). Vid slumptaLsgenerering 
fungerar dessutom nollan som ett slumptalsfrö . 

För att få PET att lämna ifrån sig 15 st slumptal, 
skriver du: 

F0RI=1T015:PRINTRND(0):NEXT 

och trycker på 'RETURN*. På bildskärmen får du nu dina 15 
slumptal, decimaltal som varierar mellan noll och ett. Genom 
att matematiskt påverka dessa tal, kan du få fram slumptal 
som ligger inom ett visst intervall. Mellan ett och sex om du 
skall simulera en tärning eller mellan ett och tre om du 
skall slumpa fram tipsresultat och så vidare. Hur du 
omvandlar dina slumptal kan du läsa mer om i någon lärobok i 
^ BASIC. 


TAL MED SKAVANKER 

Ett slumptal skall man inte kunna förutse. I så fall är 
det inget slumptal. Dessutom skall en stor serie slumptal 
fördela sig jämnt inom det angivna intervallet. Begär du 
10 000 slumptal mellan ett och tio, bör du få nära 1 000 
ettor, 1 000 tvåor och så vidare. Avvikelsen från 1 000 skall 
vara försumbar. Med det menar statistikerna att den inte 
finns, fast bara lite. 

0m du vid det här laget experimenterat lite med RND(0), 
har du säkert upptäckt att slumptalen du får fram inte är 
'äkta* slumptal. 

* Talen är inte jämnt fördelade. 

* Du får på en del PET samma serie med slumptal om du slår av 
PET mellan försöken. 


BYT SLUMPTALSFRÖ 

Receptet på detta är att ändra s l umpt a l sf r ö. I ett 
program kan man klara det på olika sätt. 

... låta operatören ange ett slumptalsfrö 
... omvandla dagens datum 

... utgå från ASCII-koden för operatörens initialer 
... bearbeta värdet hos PET:s klocka, som du kommer åt 
med TI$ 

... försöka hitta ett slumptalsfrö som uppfyller kraven 
på ett 'äkta' slumptal. 

Det här med PET:s klocka är inte så dumt. Men om du 
genom P0KE144,49 blockerar RUN/ST0P-1 ang ent en på en PET ur 
3000-serien, så stannar klockan. 

Det bästa är nog det sista av alternativen, att försöka 
hitta det bästa s l umptalsfröet. 
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EXPERIMENTPROGRAM 


Här intill har du ett experimentprogram som kan hjälpa 
dig att hitta ett bra s l umptalsfrö. Genom utskrifter m.m. 
blir körtiden för en miljon slumptal nära 80 timmar. Givetvis 
kan jag inte avhålla mig från att kommentera programmet. 

Rad 130-240 

Dessa rader kan du låta utgå. De bara hjälper dig att 
förstå tecknen för markörförflyttningarna i programmet. Om du 
har en PET ur 8000-serien, kan du dessutom lägga in en rad: 

2 P0KE59468,1 2 

vilket gör att PET visar versaler och grafiska tecken i 
stället för versaler och gemener. 

Rad 260 

Blanktecknen och markör-vänster är till för att radera 
eventuella ogiltiga inslag. Om du till exempel vill att 
slumptalsfröet skall ligga mellan -8 och 4, lägger du till 
två rader: 

25 5 PRINT"S 11 (= home) 

275 IFSEED<-80RSEED>4THEN255 

Accepterar du inte en bokstav men väl noll, lägger du 
dessutom till raden 

273 IFSEED = 0ANDA$O"0"THEN255 

Rad 270 

Nu är det så, att jag tycker om meningsfulla 
vari a belnamn . Av namnet skall om möjligt framgå variabelns 
funktion. Men 1 ö 1 får ju inte ingå i ett variabelnamn, så det 
fick bli engelska här. A$ använder jag alltid vid INPUT och 

GET, för att sedan tilldela önskad variabel innehållet i A$. 

Rad 300 

Ser till att det bara blir ett positivt heltal som anger 
antalet slumptal. 

Rad 350 

Slumpar fram ett tal som ligger mellan noll och tio. 

Genom rad 360 förkastas sluptalet om det är noll 

Rad 370 

Notering av resultatet. Blev talet sju, adderas en 

observation till variabeln A(7). 

Rad 390 

Slumptalet skrivs i svart på vit botten på bildskärmen. 

Rad 410 

Slumptalet skrivs igen, men nu i vitt på svart botten. 
Effekten blir en markör som rör sig över bildskärmen och 

skriver de olika talen. "B l inkningshast i ghet en" avgörs genom 
raderna 380 och 400. 

Rad 420 

ANT håller reda på hur många tal som skrivits på 
skärmen. 168 st. ger 21 rader med åtta tal på varje rad. För 
att undvika scrolling (texten på skärmen rullar uppåt), 
börjar PET på nytt i övre vänstra hörnet för vart 168:e tal. 

Rad 480-540 

Presentation av utfallet. 
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1 REM 

SA VE" 

@0:SLUMPTAL",8 

100 




110 




120 




130 

REM 

TECKEN 

FÖR MRRKÖRFÖRFLV 

140 

REM 

"23" 

= SHIFT+CLR/HOME 

150 

REM 

"53" 

= CLR/HuME 

160 

REM 

H r "JU 

= MARKÖR UPP 

170 

REM 

"W" 

= MARKÖR NED 

180 

REM 

Ii I^IJII 

= MARKÖR HÖGER 

190 

REM 

"ii" 

= markör vänster 

200 

REM 

" :4" 

= RVS (SVART TEX 

210 

REM 

Ii 

= SHIFT+RVS 


220 ; 

230 ■' 

240 •• 

250 PRI NT "23" 

260 PR I NT " äMANGE SLUMTflLSFRd! ilSHBBIIilll 

270 SEEB=VRL(Rf> 

280 I FSEEB=0ANBAfO "0 " THENPRI NT " TTTTT' ■' GOTO260 

290 F'RINT"SHUR MhNGA SLUMPTAL? IIBIlIHSBIIi 

30W K=RESCINT CVAL(Af >>> 

310 I FK'=0THENPR I NT" TTTTl" •' GOTO260 
320 PRI NT "23" 

330 PR I NT" SeMeMeleftMPleMeMeMsMeMeMeftl' 1 K " SLUMPTAL KOMMER ., 
340 FOR .1 = 1 TOK 

350 : J= I NT <RNDC SEED > # 10+. 5 ) 

360 :IFJ=0THEN350 

370 •'A<J>=A<J>+1 

380 : FORDE=1TO40 : NEXT 

390 : FORK=LEN ( STRf C J > > T04 : PR I NT " " ; : NE NT : PR I NT "11:4" J "IS" . 
400 ■' FORBE=i TO60 : NEXT 
410 : FORK= 1TOLEN ( STRf ( J > ) +1 : PR I NT " IS" 

420 : IFANT = 168THENANT=0 : PR I NT " 53" 

430 NEXT 
440 
450 
460 
470 

480 PRINT"2JVaRBE ANTAL 

490 FOR1=1 TO10 
500 : IFK10THENPRINT" "; 

:PRINT" "I" 

■FORL=LEN< STRf(A CI>)>T08:PRINT" 

; PR I NT A ( I ) •' A=A+A ( I ) 


II"•' GOSUB72 


S!" ; : GOSUE720 


53 " 


NEXT ■ PR I NT " ■ " J■ ANT=ANT+1 


: NEXT 


510 
520 
530 
540 NEXT 

550 PRI NT"-" 

560 PRINT"SUMMA"A"SLUMP TAL" 

570 PR I NT " MSSLUMPTALSFRö" SEED " 13 GER = 

580 PR I NT " GENOMSNI TT ■' " I NT C A/11 * 10+. 5 > /10 " ST. /SLUMPTAL. 

590 PRI NT "MEDIAN ■' 

600 I =-1 •’ A= I NT < A/2+, 5 ) 

610 1 = 1 + 1 A=A-A < I>:IFA>0THEN610 
620 PRINTA<I) 

630 PRINT"TVF'VaRDE : 

640 FOR1=0TO10 

650 •• IFTYP<A< I >THENTVF-AC I ) : TV= I 
660 NEXT 

670 PR INTTVP " < SLUMPTAL : " TV " 1S> " 

680 RIJN260 
690 : 

700 • 

710 ■■ 

720 0PEN9,0:1 NPUT#9, Af ■’ CL0SE9 
730 PRINTCHRf <13 >:RETURN 
READV. 
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NYTT UNDERVISNiNGSSPRSK 


COMAL 


Gratis till skolor. 


COMAL har bara funnits för ett fåtal maskiner tidigare, 
men redan rönt stort intresse och uppskattning. Språket 
är väl lämpat för undervisning då det är lätt att lära, 
lätt att använda och ger sund förståelse för program¬ 
mering och datorers arbetssätt. 

Börge Christensen, som är skapare av COMAL, har nu gått 
över till att endast arbeta med COMAL på PET. 

Språket är avsett för microdatorer och har tillkommit ur 
kraven på strukturering av Basic. COMAL är en blandning 
av BASIC och PASCAL. COMAL tillvaratager den logiska 
struktureringen hos Pascal och enkelheten hos Basic. 

COMAL- the Common Algorithmic Language, har utvecklats 
av dansken Börge Christensen. Han är en ledande person 
inom europeisk utbildningsverksamhet. Kombinationen 
Pascal och Basic gör att språket lämpar sig utomor¬ 
dentligt väl för utbildning. Många lärare idag är med 
all rätt oroliga för att eleverna aldrig lär sig god 
programmeringsdi c ip l in med vanlig Basic. Det är alltså 
ingen tillfällighet att upphovsmannen är framstående 
inom utbildningsväsendet. 

Sammarbetet mellan Christensen och Commodore har utmyn¬ 
nat i COMAL till PET som är på mer än 24K bytes maskin¬ 
kod. Enligt Christensen är COMAL på PET den mest full¬ 
bordade versionen vad beträffar kommandon och hastighet. 
All fortsatt utveckling av COMAL kommer endast att goras 
på PET. 

Språket kallas "Commodore Algorithmic language" och ef¬ 
tersom språket nu finns till PET kommer det bli lätt 
tillgängligt för alla skolor och universitet. 

Även för tekniska ändamål har COMAL rönt stor framgång. 
Möjligheter till långa variabelnamn och programrader som 
IF-THEN-ELSE-ENDIF, REPEAT-UNTIL etc gör programmet 
mycket kraftfullt. COMAL går går långt över andra försök 
som gjorts med utveckling av strukturerad Basic. 



Nytillskottet COMAL gör PET:s redan breda programsor t i - 
ment ännu bredare och även än mer lämpat för undervis¬ 
ning. COMAL tillsammans med PASCAL, som ju redan finns, 
är två utmärkta utbildningsprogram. Till detta finns 
PET-VÄX som möjliggör hopkoppling av flera PET-system 
för både lärare och elever. 

Slutligen kan vi meddela att Commodore och Datatronic 
erbjuder COMAL programmet helt GRATIS till skolor utan 
några som helst anspråk på Copyright. Skolorna får an¬ 
vända och kopiera programmet utan ersättning. 


- 1 - 


T 

t!yiZ_feJiiJZ_!I3åD_!I!£dl.er!!_i._PEI — k_Lubben? 

Du som läser PET-nyheterna och ännu 
så här: 

Betala in medlemsavgiften 200 kr på 
15 70 01-9. Glöm inte ditt namn och 
medlemsavgift i PET-klubben. 

Som PET-k lubbsmed lem får du många förmåner: 

- Klubbtidningen PET-nyheterna direkt i brevlådan 5-6 
ggr per år. Innehåller många nyttiga tips och trevlig 
läsning. 

- Den engelska motsvarigheten till PET-nyheterna, 
Commodore Club News, kommer också i din brevlåda. 

- Du kan delta i programbyt arserv i c en i PET-nyheterna. 
Där har du möjlighet att skaffa dig många trevliga 
program. 

- PET-klubben ordnar BASIC-kurser enbart för 
PET-klubbsmedlemmar. 

- Du får förmånliga erbjudanden om litteratur och 
tidningsprenumerationer genom PET-klubben. 

Du som inte är medlem, gör slag i saken redan idag. 
Betala in medlemsavgiften! 
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PROGRAM TILL PET 

TEXT Den som sysslar med någon form av teknisk verksamhet måste kräva av 
ett textbehandlingsprogram att det kan hantera sådant som kemiska formler: 

K + + Fe 2+ + Fe(CN)^~ ===> KFe 0 (CN) £ 

D Z O 

Programmet bör också kunna hantera matematiska uttryck som: 

2 

( P + ---- ) (V-nb)=nRT 
V 

Detta kan TEXT, och uttrycket ser likadant ut på skärmen, som det sedan 
kommer att göra på papperet. För att en formel skall kunna skrivas, behövs en 
printer som klarar de nödvändiga rörelserna. 

Minimisystemet för användning av TEXT är 8 K PET plus matrisprinter. Floppy 
disk ökar hastigheten, men är inte nödvändig. Även 8K—versionen kan hantera 
obegränsade dokument, och ha mer än 3000 tecken i minnet samtidigt. 

Programmet finns med hel- eller halvautomatisk avstavning. Det är lätt att 
lägga in egna kommandon, som t. ex. sortering efter bokstavsordning. 

Garanti: Du får ha programmet till påseende i två månader. 

Hittar Du något effektivare textprogram, så köp det istället! 

Pris: Från 300 kr. 

FLYGSIMULATOR Programmet ger möjlighet till billig träning i instrument¬ 
flygning. Manualen innehåller ett träningsschema för den som saknar flyg¬ 
utbildning. 

NDB-inflygning i orkan ger man sig inte in på i ett riktigt flygplan, men i 
simulatorn är det ofarligt. 

Pris: Från 250 kr 

ORBITAL Ett undervisningsprogram, som simulerar elektronens rörelse i 
väteatomens ls-orbital. Tryck på en tangent, och den sätter spår efter sig, 
vilka efter några minuter har vuxit ihop till det välbekanta 'molnet' av 
sannolikhetstäthet. 

Pris: 200 kr. 

HUCKEL-APPROXIMATIONEN Ett program som beräknar energinivåer, bindnings- 

ordningar och reaktivitereter i konjugerade kolväten. Heteroatomer behandlas 
med hjälp av första ordningens störningsräkning. 

Pris: 300 kr 

Program och mera information kan beställas från 

KEFYDA Konsult 

Allan Emrén 

PL 2585 

44800 Floda 

Tel. 0302/32138 (Kvällstid) 


m 


m 
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Ekonomisk_FöretagsLedn|ng_utbiLdar_g|_PET 


Nu har du chansen att få utbildning på PET genom 
Ekonomisk Företagsledning. Datatronic och Ekonomisk 
Företagsledning genomför i samarbete ett kurspaket 
praktiska datorkurser. Kurserna är helt 
företagsinriktade och vänder sig till dig som snabbt 
vill göra din dator effektiv i företaget. Skicka in 
kupongen längst ner på sidan om du vill anmäla dig, 
eller om du vill ha mer information om kurserna. 

Kursugg läggning 

Under kursen får deltagarna arbeta praktiskt med PET. 
Kursledaren går igenom varje moment och därefter ska 
deltagarna tillämpa detta och lösa övningsuppgifter på 
PET. Alla kurserna är uppbyggda kring praktikfall vilket 
gör verklighetsanknytningen mycket påtaglig. 
Kursdokumentationen som ingår i varje kurs är mycket 
omfattande. När deltagarna kommer hem utgör 
dokumentationen en bra uppslagsbok när man kommer till 
olika problem i sitt praktiska arbete med kontorsdatorn. 


Kursdeltagarna är efter avslutad kurs ordentliga 
kunskaper om vad en kontorsdator kan innebära i det egna 
företaget, samt kunskaper om hur datorn ska hanteras för 
att utnyttjas så effektivt som möjligt. 

Anmäl dig redan idag. Deltagarantalet är begränsat vid 
varje kurstillfälle. Eller skicka in kupongen så får du 
mer information om kurserna. 


Klipp ur kupongen och skicka den till Datatronic. Den 
är frankerad. Skicka kupongen redan idag. 

Jag anmäler nedanstående personer till markerade kurser: 

T 

Namn:. 

Namn:. 

^nn:. 

0 Ja, sänd mig mer information om PET-kurserna 



Sept 

Okt 

Nov 

D e c 

Företag:... 

Bokför i ng 

14 

1 2 

9 

7 

Fakturering 

15 

13 

10 

8 

Namn:. 

Löne r 

16 

14 

11 

9 


Simulering 
Kalkylering 
Ordbehandling 



1 2 

13 

16 

1 0 

11 

14 

Postadress: 

Postnr/ort: 


Te lefonnummer: 
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PET DAMMSKYDD 


SKYDDA DIN INVESTERING 

Skydden är tillverkade i brun vinyl, med 
tygförstärkt insi da.Ma teri a let är mycket 
mjukt, och är därför lätt att vika ihop. 
Skyddet kräver minimalt utrymme när det 
ej används. 


PET 2001 .100:- 

PET 3032.100:- 

PET 8032.100:- 

PET 2040.100:- 

PET 8050.100:- 

PET 2022 med traktormatning.79:- 

NEC spinwriter.12 5: — 


M.T AUTOMATIK BOX 4057 182 04 ENEBYBERG TEL.08/768 83 90 



* 



PET 



[datatronic ab 



Frankeras ej. 
Adressaten 
betalar 
portot. 



Svarsförsändelse 

Kontonummer 1433 
S-12612 STOCKHOLM 
















N Y T X L_ l K O fl fl N A 


fi ee s::> l e: fi a r 


AB ERIC WÄRNÅ, 

AB KYL.UX , 

AB REDOVISARNA I PARTILLE, 

AB TOR ENGSTRÖMS ING BYRÅ, 

AB TYOS, 

ABF JÄMTLAND, 

ADEXA HB, 

ADVOKATFA SONNEY KARLSSON, 
ALLMETALL VERKSTADS AB, 
ALLMETALLVERKSTAD AB, 
AMOTSFORS FÖRETAGSHÄLSOVÅRD, 
ANEK WOOD AB, 

ARMERINGSKONSULT, 

ARVIKA KORPEN, 

T BRABRO, 

BURMANS LASTMASKINER AB, 
BYGGNADSKONTQRET NEDRE, 

CARL DAHLBERGS BYGGNADS AB, 
CIV ING T LANGE, 
m. CORONA BOKBINDERI, 

DALVIKS KVARN AB, 

EIA B , 

EKENÄS KONTORSMASKINER, 
FINANSFORUM AB, 

FMV-BOR, 

FÖRENADE FRUKT EK FÖR, 
GUSTAVSBERGS GLASMÄSTERI AB, 
HEEDE CONTROLS AB, 

HSB BORÅS EK FÖRENING, 
INSTRUMENT SYNTES AB, 

JOHAN BENGTSSON KB, 

JONAS CURMAN, 

KRON DATA, 

KULLABYGDENS DATA-SERVICE, 

L-G AGROTEC, 

MASKINSTATION, 

T MÖNSTERÅS MEK VERKSTAD, 

NIKA DEVELOPMENT AB, 

PEEKERS BAGERI, 

PEEKERS BAGERI, 

PÖLYNOVA NORDIC AB, 
f RATELKO AB, 

ROLAND STILLEBORN, 

SAAB-ANA I BORAS AB, 
SANDSJÖFORS INDUSTRIER AB, 
SERVECO ADMINISTRATION AB, 
STATICON BYGGPROJEKTERING AB, 
SVANFELDT & FORSSBERG, 

SVEDALA REVISIONS AB, 

SVENSKA AB NAVIGATÖR, 
SYDSVENSKA REPROHUSET AB, 

TARKETT AB, 

TJÖRNS REDOVISNINGSBYRÅ, 

ULF LJUNGGREN AB, 

ULLEVI BUDERVICE AB, 

VIDEO SYD, 

VIM CONTAINER AB, 

WARSTRöMS BILMARKNAD AB, 

WEDA SANDGJUTERI AB, 


VÄRNAMO 

SUNDBYBERG 

PARTILLE 

KALMAR 

HELSINGBORG 

ÖSTESUND 

TROLLHÄTTAN 

RONNEBY 

VAGGERYD 

VAGGERYD 

AMOTSFORS 

ÅRJÄNG 

KUNGÄLV 

ARVIKA 

VÄSTERAS 

PITEA 

ÖSTERSUND 

VÄSTRA FRÖLUNDA 

MÖLNDAL 

FALKÖPING 

FALUN 

SOLLENTUNA 

EKENÄS 

GÖTEBORG 

STOCKHOLM 

KIVIK 

GUSTAVSBERG 

STOCKHOLM 

BORAS 

LIDINGÖ 

STOCKHOLM 

STOCKHOLM 

OTTERBÄCKEN 

HÖGANÄS 

KRISTIANSTAD 

BILL INGE 

MÖNSTERÅS 

FÄRJESTADEN 

SOLNA 

SOLNA 

STOCKHOLM 

STOCKHOLM 

VÄLLINGBY 

BORAS 

BODFORS 

VÄXJÖ 

GÖTEBORG 

LIDKÖPING 

SVEDALA 

STOCKHOLM 

MALMÖ 

RONNEBY 

SKÄRHAMN 

GÖTEBORG 

GÖTEBORG 

HÖGANÄS 

MALMÖ 

KRISTINEHAMN 

SÖDERTÄLJE 


51 



PRISLISTA 


Samtliga priser gäller exklusive moms. 

gram! ««& 

ISHrS 

fe!®» 

som passar dig bäst. 

PET^ede^OOO^vétensk^ 

PET Vetenskap är^ettj^ket speciellt 

för insamling aj ^^^gon, styr . eller 

r/pfllStoSstSe Mg£ 

1 st PET 3023 friktionssknvare 4 *£" r 

1 st PET - IEEE kablage 4 qo kr 

1 st IEEE kablage 300kr 

10 PET flexskivor 150 kr 

1 st PET diskettparm 2 00 kr 

Medlemsskap i PET-klubben 21 350 kr 

1.360 kr 

PET Paketrabatt 1 g 990 kr 

PET Paketpris - PET kur 

Paketpris -PET-Leasing 

PET Leasing tre ar 749 kr 

Må nadskostnad ---- 

PET Serie 3000 - Administration 

För mindre ,ör ®*® 9s ^SinTstraTölråTprogtam i 

lade för detta paket. 

st pet 3032 centralenhet 
1 st PET 3040 flexskivminne 
i st PET 4022 skrivare 
i st PET-IEEE kablage 
i st IE EE - IEEE kablage 

Valfri PET-märkt programvara 
10 PET flexskivor 
i st PET diskettpärm 
Medlemsskap i PET-klubben 



Gäller från 1981-09-14 


PET Serie 8000 - Administration 

För bokföring, 

ESE5&SS-& än i P^ 3 °°° Ad - 

ministration. l2 950 kr 

1 st PET 8032 centralenhet 3 950 kf 

t st PET 8050 flexskivminne 1 q. 950 kr 

1 st PET 8024 skrivare 7 x7 400 kf 

1 st PET - IEEE kablage 400 kr 

i ct IFEE — IEEE kablage k 

1 valfri PET-märkt programvara 2 300kr 

10 PET flexskivor 150 kr 

1 st PET diskettpärm 
c färaband till 8024 
Medlemsskap i PET-klubben 


pet Paketrabatt 

pet Paketpris-PET-KUr 

Paketpris -PET-Leasing 

PET-Leasing tre år 
Månadskostnad 


9.900 kr 
9.500 kr 

6.800 kr 
400 kr 
400 kr 

1.800 kr 
300 kr 
150 kr 
200 kr 

29.450 kr 

3.460 kr 

25.990 kr 


pet Paketrabatt 

pet Paketpris - PET-KUK 

Paketpris PET-Leasing 

PET-Leasing tre år 

Månadskostnad 


240 kr 
200 kr 
41 .940 kr 
950 kr 
40.990 kr 


1.549 kr 


^fsérie8000^rdbehandling/ 

Administration 

vända alla u S usta l med skon- 

naden a- <* ä m sk ,iver likt en sknv- 

S Tast många gånget snabbate. 

Om du vill byta 

någon annan skonskm/are gå^d^t ^ ^ 
välja på skrivare 8026 användas som s epa- 

sssäsä 5 : 

1 st PET 8032 centralenhet 1 kr 

1 st PET 8050 8 950kr 

1 st PET 8027 skonskrivare 40 o kr 

1 st PET - IEEE kablage 400 k r 

1 st IEEE - IEEE kablage 4 qq kr 

PET Ordbehandlingsprogram i 300 kr 

1 0 PET flexskivor 150 kr 

1 st PET diskettparm 300 kr 

10 färgband 8027/8026 20 0 kr 

Medlemsskap 1 PET-klubpe 40 .000 kr 


pet Paketrabatt 

pet Paketpris - PET Kur 

Paketpris PET-Leasing 

PET-Leasing tre år 
Månadskostnad 


1.010 kr 

38.990 kr 


1 .399 kr 


999 kr 


Datatronic AB förbehåller sig rätten att förändra 

nrioarna utan fnranåanHa infr\rmatinn 






















Maskinvara 


PET 301616K 

5.450 

kr 

PET 3032 32K 

9.900 

kr 

PET 3023 Friktionsskrivare 

4.950 

kr 

PET 4022 Traktorskrivare 

6.800 

kr 

PET 3040 Flexskivminne 2x176K 

9.500 

kr 

PET 8032 32K 

12.950 

kr 

PET 8024 7 x7 traktorskrivare 

10.950 

kr 

PET 8024 7 x9 traktorskrivare 

11.950 

kr 

PET 8050 Flexskivminne 2x512K 

13.950 

kr 

PET 8026 Skönskrivare 

10.950 

kr 

PET 8027 Skönskrivare 

8.950 

kr 

NEC 5530 Skönskrivare 

19.950 

kr 

NEC Traktoraggregat 

1.900 

kr 

PET 2010 Kassettstation 

640 

kr 

Kabel PET-IEEE 

400 

kr 

Kabel IEEE - IEEE 

400 

kr 

Kabel IEEE-IEEE, 2 m 

450 

kr 

Kabel PET - NEC 

400 

kr 


Tillbehör 


PET 8010 Akustiskt modem 

2.950 

kr 

Plotter A4-storlek Hl Plot 

4.950 

kr 

Kabel PET-HI Plot 

400 

kr 

PET-VÄX Dataväxel Moderenhet 

1.900 

kr 

PET-VÄX per ansluten PET 

900 

kr 

SCIP Interface IEEE (PET)-RS 232 

2.000 

kr 

PET-COM Kommunikations- 



interface 

950 

kr 

TV-lnterface inklusive kablage 

470 

kr 

Ljuspenna 

400 

kr 

TOOL KIT (Programmerings- 



hjälpmedel) 

450 

kr 

Utbyggnadsminne 3008 till 16K 

2.350 

kr 

Utbyggnadsminne 3008 till 32K 

5.300 

kr 

Utbyggnadsminne 3016 till 32K 

4.900 

kr 


För specialtillämpningar, typ industrikort, an¬ 
slutningar till processer etc, begär prisuppgifter. 


Ar 









Svensk litteratur 


Förbrukningsmaterial 

Till din PET finns speciellt utvecklade disketter och färg¬ 
band. Det är viktigt att använda dessa för att din PET ska 
kunna garantera absolut högsta driftsäkerhet. 



Styckepris/kr 

1 Förp. /kr 

PET Kassettband C-12 Special 

7 

6 

PET Flexskiva 10 förp 

34 

30 

PET Färgband till 3022/3023 12 förp. 

20 

18 

PET Färgband till 8024 10 förp. 

50 

40 

PET Färgband till 8026/8027 

30 

— 

PET Färgband till NEC 

60 

50 

PET Skrivhjul till NEC 

150 

— 

PET Skrivhjul till 8026/8027 

120 

— 

PET Flexskivepärm med 15 fack 

150 

— 

Extrafack PET-pärm per 5 fack 

35 


Tillgängliga stilar till skönskrivare 



Prestige Elite, Pica 10, Courier 72, Elite-12, OCR-B m/l 






Om du tycker att du vill lära dig mer om hur din PET 
fungerar finns det gott om litteratur på svenska som be¬ 
handlar detta. 

Svensk handbok PET 3o 

Svensk handbok Floppy Disk 35 

Arbetsbok 1 'Bli bekant med PET 35 

Arbetsbok 2 'Sträng o. Indexer.variabl’ 35 

Arbetsbok 3 'PET och grafiska tecken’ 35 

Arbetsbok 4 'PEToch kassettstation' 35 

Arbetsbok 5 'PET och user port’ 100 

Arbetsbok 6 'PEToch HP-bussen’ 100 

Arbetsbok 11 'PET kontroll o logiska operander 35 


Utländsk 



Kr 

Users manual PET 

50 

Users manual PET FLOPPY 

50 

Users manual PET PRINTER 

50 

PET & the IEEE 488 bus (GPIB) 

105 

PET/CBM Computer guide 

105 

6502 Hardware manual 

70 

6502 Programming manual 

70 

Basic Basic 

78 

Advanced Basic 

78 

Some common Basic programs 

68 


litteratur 



Medlemsskap i PET-klubben 


peT -Nyt«!» Mna 



Som medlem i PET-klubben får du medlemstidningen PET-nyheterna 5-6 ggr per år. I PET-Ny- 
heterna presenteras programnyheter, exempel på nya sätt att använda PET och PET-program, 
tips om hur du kan använda din PET effektivare och roligare, samt mycket mer. I PET-klubben 
finns också en programbytarservice där du kan skicka in ett program du har gjort själv och byta 
till dig ett annat program ur programbytarlistan. 

PET-klubben ordnar också speciella programmeringskurser för medlemmarna. Som med¬ 
lem i PET-klubben får du också specialerbjudanden om tidningsprenumerationer, förmånspris 
på litteratur etc. 

Dessutom får du utan kostnad den engelska motsvarigheten till PET-Nyheterna. 

Ett medlemsskap i PET-klubben har visat sig vara till stor nytta för alla PET-användare. 
Därför ligger nu ett medlemsskap i PET-klubben inbakat i PET-rabatt-priser när du skaffar ditt 
PET-system. 

Du som inte redan är medlem betalar enklast in medlemsavgiften, 200 kr per år, på postgiro¬ 
konto 157001-9. Ange på inbetalningskortet att det gäller medlemsavgift i PET-klubben. 





























Programprislista 

Till din PET finns ett komplett utbud av administrativa I ordbehandling etc. Här ser du hur billigt det är att kom- 
program som bokföring, fakturering, löneredovisning, | plettera din PET med ytterligare någon rutin. 


Program 

Beskrivning 

Pris 

program 

3000- 

serien/kr 

Pris 

program 

8000- 

serien/kr 

Pris 

handbok 

kr 

PET-BOK 

Bokföringsprogram med budget och rapportgenerator. 

1.800 

2.400 

100 

PET-LÖN 

Löneprogram med möjlighet till efterkalkyl av order 
alt. projekt. 

1.800 

2.400 

100 

PET-ENT 

Order-entry-system med automatfakturering som är 
kopplat till kundreskontran. 


3.600 

100 

PET-FAKT 

Faktureringsprogram sammanlänkat med kundreskontra, 
lager och försäljningsstatistik. 

2.400 


100 

PET-GEN 

Registerprogram för listor, etiketter, medlemsregister osv. 

1.800 

2.400 

100 

PET-ORD 

Professionellt ordbehandlingssystem med avancerade 
redigeringsfunktioner. 

1.800 

2.400 

100 

PET-LAG 

Lager-och förrådsprogram med rapportgenerator. 

1.800 

2.400 

100 

PET-SIM 

Paket för finansiell planering och budgetering. Motsvarar 
traditionella simuleringspaket. 

1.800 

2.400 

100 

PET-LEV 

Leverantörsreskontra med betalningsrutiner samt 
koppling till bokföring. 

1.800 

2.400 

100 

PET-KALK 

För-och efterkalkyler med receptregister enligt bidrags¬ 
alt. självkostnadsmetoden. 

1.800 

2.400 

100 

PET-PLAN 

Ett resursplaneringsprogram med valfri tidsaxel. 


2.400 

100 

PET-PRO 

Ett projektredovisningsprogram för advokatbyråer, 
reklambyråer, byggarbetsplatser etc. 

1.800 


100 

PET-OZZ 

Databashanteringsprogram med stor lagringskapacitet 
och korta söktider. Lämpar sig för alla typer av register¬ 
hantering. 


3.600 

100 

PET-TERM 

Ett program som gör PET till intelligent terminal för 
kommunikation med olika stordatorer via valfritt interface. 


2.400 

100 

PET-KOST 

Kostnadsställebokföring motsvarande PET-BOK men 
utökad med kostnadsställeredovisning och automat- 
kontering. 


3.600 

100 

PET-FORTH 

FORTH är ett stackorienterat programmeringsspråk 
lämpat för all typ av programmering där snabbhet och 
kompakthet erfordras. 


2.400 

200 

PET-STAT 

Statistikprogram för medelvärde-varians-standardawikelse- 
beräkning och lägesmått. 

900 

1.200 

50 

PET-REG 

Statistikpaket för kurvanpassning samt korrelations- och 
regressionsanalys. 

900 

1.200 

50 

PET-DIS 

Statistikpaket för normal- students t-binomial-fördel- 
ningar mm. 

900 

1.200 

50 

PET-ASS 

Assembler för PET med editor och rutiner för utvecklings¬ 
system. 

1.800 

2.400 

50 

PET-ELEV 

Skoladministrativt program för hantering av linjeval, 
tillval etc. 

900 

1.200 

50 

PET-LÄR 

Ett program för hantering av skolornas läromedel. 

900 

1.200 

50 

PET-PASC 

Komplett Pascal för PET. 

1.800 

2.400 

100 

PET-MAT 

Matematikprogram innehållande integraler, derivering, 
nollpunkts-och vektoranalyser. 

900 

1.200 

50 

PET-UND 1 

Underhållningsprogram. 

600 



PET-UND 2 

Underhållningsprogram. 

600 



PET-UND 3 

Underhållningsprogram. 

600 





Idatatronicab 


Generalagent: Datatronic AB, Vretensborgsvägen 8, 

Box 42094, S-12612 Stockholm, Tel: 08/7445920, Telex: PET S17828. 












Masskorsband 


HrtR SER DU NÄRMASTE PETfiTERFöRSrtL-JRRE 


AVESTA 
BOR 8 S 

ESKILSTUNA 

FALKÖPING 

FALUN 

GÄVLE 

GÄVLE 

GÖTEBORG 

GÖTEBORG 

GÖTEBORG 

GÖTEBORG 

HALMSTAD 

HELSINGBORG 

HUDIKSVALL 

JÖNKÖPING 

JÖNKÖPING 

JÖNKÖPING 

KALMAR 

KALMAR 

KARLSTAD 

KATRINEHOLM 

KRISTIANSTAD 

LINKÖPING 

LINKÖPING 

LINKÖPING 

LOMMA 

LULES 

MALMö 

MORA 

NORRKÖPING 

NORRKÖPING 

NYKÖPING 

RONNEBY 

SKARA 

SKÖVDE 

SOLNA 

STOCKHOLM 

STOCKHOLM 

STOCKHOLM 

STOCKHOLM 

STOCKHOLM 

STOCKHOLM 

SUNDSVALL 

SÖDERTÄLJ E 

TRAN8S 

UDDEVALLA 

UDDEVALLA 

UME8 

UPPSALA 

UPPSALA 

UPPSALA 

VARBERG 

VETLANDA 

VISBY 

VÄRNAMO 

VÄSTERSS 

VÄXJÖ 

ÖREBRO 

ÖRNSKÖLDSVIK 

ÖSTERSUND 

ÖSTERSUND 


MASKINFIRMA X ET ERIXON 
BORBS DATA & ELEKTRONIC 
RPU 

NORDERS BOKHANDEL 
BLIDS AB 
DIN DATOR 

OLYMPIA I GÄVLE AB 
PRINTEX AB 
JANKEN MINIDATA 
DATAPAR AB 
GRUNDELLS 
DATAHALLAND 
ELECTRO-BYGG 
HÄLSINGEDATA 
KONTORAMA 

DATAHUSET MSNSSON & CO 

KIDA KONTORS & IND DATA 

SYDKONTOR AB 

KALMAR MINIDATA 

ESSELTE SYSTEM AB 

NORDSTRÖMS KONTORSMASKINER 

SYDKONTOR 

KONTORSKONSULT AB 

NORDSTRÖMS KONTORSMASKINER 

KONTORAMA 

GÖTA DATA 

MD C MIKRODATACENTER 
LINDAHL 8 ROTHOFF 
PER-ERIK FINN AB 
DATAX HB 

NORDSTRÖMS KONTORSMASKINER 
RPU 

EXPORTSTABEN 
INNOVA KONSULT 
SKÖNBORGS KONTORSMASKINER 
INFOTERM 

KIDA KONTORS 8 INDUSTRI DATA 
SVATO AB 
TURN-KEY DATA 
T.D.X. SMSDATORER 
ESSELTE SVANSTRÖMS 
MODULFÖRETAGEN MINI-MICRO 
DIN DATOR 

ESSELTE SVANSTRÖMS 

EXPORTSTABEN 

ADB-VÄST 

IP MARKNADSFÖRING 
NORDKONTOR 

EFFEKTIV MARKNADSPLANERING 
SUNDATA 

OLYMPIA I UPPSAL 
KON F AC 

DATABUTIKEN I VETLANDA 
GUTE DATA 

KIDA KONTORS 8 INDUSTRI DATA 
RPU 

BRA KONTOR 

DAWIDSSONS MASKINAFFÄR 
BOKFÖRINGSTJÄNST 
FOTO MELANDER AB 
DATA-BOLIN NORR 


0226-511 42 
033-11 53 60 
016-14 95 91 
0515-170 20 
023-280 53 
026-181818 
026-18 00 95 
031-13 90 60 
031-18 02 50 
031-19 40 70 
031-20 93 40 
035-10 95 90 
042-13 33 23 
0650-140 60 
036-12 84 82 
036-11 95 55 
036-12 98 28 
0480-154 60 
0480-297 77 
054-10 20 20 
0150-118 68 
044-12 60 70 
013-13 01 75 
013-11 51 75 
013-14 52 30 
040-41 47 10 
0920-248 94 
040-10 17 30 
0250-155 91 
011-16 21 79 
011-10 40 01 
0155-889 80 
0457-103 50 
0511-105 40 
0500-109 90 
08-730 55 80 
08-97 03 40 
08-21 05 07 
08-60 77 07 
08-52 84 79 
08-15 14 40 
08-98 13 95 
060-12 24 11 
0755-327 90 
0140-132 10 
0522-177 17 
0522-352 32 
090-14 11 20 
018-12 27 55 
01 8-12 85 85 
018-11 21 40 
0340-158 60 
0383-175 00 
0498-113 20 
0370-357 10 
021-13 30 50 
0470-200 30 
019-13 64 50 
0660-835 00 
063-11 10 66 
063-12 78 90 






PET-klubben 


Box 42094,12612 Stockholm 









